home *** CD-ROM | disk | FTP | other *** search
/ User's Choice Windows CD / User's Choice Windows CD (CMS Software)(1993).iso / misc1 / ami301c.zip / ORGCAL.SM$ / ORGCAL.SMM
INI File  |  1993-05-27  |  65KB  |  4,059 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     _MACRO.STY
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     Apple LaserWriter Plus
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     Create a calendar with Organizer data
  19.     
  20.     
  21.     
  22.     
  23.     738532158
  24.     18
  25.     738366549
  26.     275
  27.     23
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     1
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [ParaNum]
  54.     1
  55. [l1]
  56.     0
  57. [edoc]
  58. <:#568,9360>define    CreateFont()        DllCall("gdi,CreateFont,HHHHHHHHHHHHHHC", %1, %2, %3, %4, %5, %6, %7, %8, %9, %10, %11, %12, %13, %14)
  59.  
  60. <:#284,9360>define    DeleteObject(handle)    DllCall("gdi,DeleteObject,HH", %1)
  61.  
  62. <:#568,9360>Define SendMessage(hwnd, message, wparam, lparao) dllcall("user,SendMessage,JHHHJ", %1, %2, %3, %4)
  63.  
  64. <:#568,9360>Define PostMessage(hwnd, message, wparam, lparao) dllcall("user,PostMessage,JHHHJ", %1, %2, %3, %4)
  65.  
  66. <:#284,9360>
  67.  
  68. <:#284,9360>
  69.  
  70. <:#284,9360><:><:><:><:>Define EnableHardwareInput() dllcall("user,EnableHardwareInput,AA", %1)
  71.  
  72. <:#284,9360>Define ShowWindow(hWnd, stuff) DllCall("user,ShowWindow,HHH", %1, %2)
  73.  
  74. <:#284,9360>Define FindWindow() DllCall("user,FindWindow,HCC", %1, %2)
  75.  
  76. <:#284,9360>Define GetActiveWindow() DllCall("user,GetActiveWindow,H")
  77.  
  78. @Outline2@<:#568,9360>Define SendMessageC(hwnd, message, wparam, lparao) Dllcall("user,SendMessage,HHHHC", %1, %2, %3, %4)
  79.  
  80. @Outline2@<:#284,9360>Define GetWindowText() DllCall("user,GetWindowText,HHCH", %1, %2, 50)
  81.  
  82. <:#284,9360>define IsIconic(hWnd) DllCall("user,IsIconic,HH", %1)
  83.  
  84. <:#568,9360>define WinHelpa(hWnd, file, cmd, ptr)    DllCall("user,WinHelp,HHCHJ", %1, %2, %3, %4)
  85.  
  86. <:#284,9360>define WM_GETTEXT        0x000D
  87.  
  88. <:#284,9360>define SC_RESTORE      0xF120
  89.  
  90. <:#284,9360>define WM_SYSCOMMAND       0x0112
  91.  
  92. <:#284,9360>Define WM_SETFONT 0x30
  93.  
  94. <:#284,9360>Define WM_COMMAND 0x111
  95.  
  96. <:#284,9360>Define WM_QUIT 0x0012
  97.  
  98. <:#284,9360>
  99.  
  100. <:#284,9360>define calstyle "<:f240,BArial,255,0,0>_orgcal.sty<:f>"
  101.  
  102. <:#284,9360>
  103.  
  104. <:#284,9360>declare startcal(p1, p2)
  105.  
  106. <:#284,9360>declare getorgdata(orgsection, orgsection2)
  107.  
  108. <:#284,9360>declare readorgdates(p1, p2, p3, p4, p5)
  109.  
  110. <:#284,9360>declare datenum2datestr(orgmonth)
  111.  
  112. <:#284,9360>declare autocal(year, month)
  113.  
  114. <:#284,9360>declare datestr2datenum(orgmonth)
  115.  
  116. <:#284,9360>declare findday(orgday)
  117.  
  118. <:#284,9360>declare findday_ann(orgday)
  119.  
  120. <:#284,9360>declare readorganniversary(dates, text, month)
  121.  
  122. <:#284,9360>declare createdlgfont()
  123.  
  124. <:#284,9360>declare setfont(hdlg, id)
  125.  
  126. <:#284,9360>declare deletefont()
  127.  
  128. <:#284,9360>declare delfile(filename)
  129.  
  130. declare FindAndReplace(String, Findwhat, Replacewith)
  131.  
  132. <:#284,9360>
  133.  
  134. <:#284,9360>' Macro by Charlie Pappas, Calendar by Powell Smith
  135.  
  136. <:#284,9360>
  137.  
  138. @Function@<:#293,9360>function orgcal()
  139.  
  140. 'singlestep(0)
  141.  
  142. <:#284,9360>ignorekeyboard(1)
  143.  
  144. <:#284,9360>stylesheet = "<:f240,BArial,255,0,0>_CALORG.STY<:f>"
  145.  
  146. <:#284,9360>if getopenfilecount() <;> 0
  147.  
  148. <:#284,9360>    if (getdocinfo$(ddstylesheet) <<<;> stylesheet) <:f240,BArial,0,0,128>Or (GetDocInfo$(dduser8) = 1)<:f>
  149.  
  150. <:#284,9360>        if New(stylesheet, WithContents, 1024) <<<;> 1
  151.  
  152. <:#284,9360>            message("Unable to find the style sheet {stylesheet}.", "Ami Pro")
  153.  
  154. <:#284,9360>            return 0
  155.  
  156. <:#284,9360>        endif
  157.  
  158. <:#284,9360>        return 0
  159.  
  160. <:#284,9360>    endif
  161.  
  162. <:#284,9360>else
  163.  
  164. <:#284,9360>    makenew:
  165.  
  166. <:#284,9360>    if New(stylesheet, WithContents, 1024) <<<;> 1
  167.  
  168. <:#284,9360><:f240,BArial,255,0,0>        message("Unable to find the style sheet {stylesheet}.", "Ami Pro")<:f>
  169.  
  170. <:#284,9360>        return 0
  171.  
  172. <:#284,9360>    endif
  173.  
  174. <:#284,9360>    return 0
  175.  
  176. <:#284,9360>endif
  177.  
  178. <:#284,9360>
  179.  
  180. <:#284,9360>defstr year, month;
  181.  
  182. <:#284,9360>'goto debug
  183.  
  184. <:#284,9360>
  185.  
  186. <:#284,9360>if autocal(&year, &month) <<<;> 1
  187.  
  188. <:#284,9360>    return 0
  189.  
  190. <:#284,9360>endif
  191.  
  192. <:#284,9360>docinfofields("", "", "", "", "", "", "", 1)
  193.  
  194. <:#284,9360>defstr startrow, startcol, endrow, endcol;
  195.  
  196. <:#284,9360>TableGetRange(&StartRow, &StartCol, &EndRow, &EndCol)
  197.  
  198. <:#284,9360>if startrow = 10
  199.  
  200. <:#284,9360>    type("<[>down]<[>down]<[>shiftdown]")
  201.  
  202. <:#284,9360>    answermsgbox(yes)
  203.  
  204. <:#284,9360>    DeleteColumnRow(row)
  205.  
  206. <:#284,9360>endif
  207.  
  208. <:#284,9360>
  209.  
  210. <:#284,9360>orgsection = GetProfileString$("OrgCal", "Calendar", "amipro2.ini")
  211.  
  212. <:#284,9360>if orgsection = ""
  213.  
  214.     orgsection =     "<:f240,BArial,255,0,0>Calendar<:f>"
  215.  
  216. <:#284,9360>    WriteProfileString("OrgCal", "Calendar", "Calendar", "amipro2.ini")
  217.  
  218. <:#284,9360>endif
  219.  
  220. <:#284,9360>orgsection2 = GetProfileString$("OrgCal", "<:f240,BArial,255,0,0>Anniversary<:f>", "amipro2.ini")
  221.  
  222. <:#284,9360>if orgsection2 = ""
  223.  
  224. <:#284,9360>    orgsection2 = "<:f240,BArial,255,0,0>Anniversary<:f>"
  225.  
  226. <:#284,9360>    WriteProfileString("OrgCal", "Anniversary", "<:f240,BArial,255,0,0>Anniversary<:f>", "amipro2.ini")
  227.  
  228. <:#284,9360>endif
  229.  
  230. <:#284,9360>windir = getwindowsdirectory$()
  231.  
  232. <:#284,9360>type("<[>ctrlhome]<[>down]<[>down]")
  233.  
  234. <:#284,9360>statusbarmsg("<:f240,BArial,255,0,0>Getting Organizer data...<:f>")
  235.  
  236. <:#284,9360>if getorgdata(orgsection, orgsection2) <<<;> 1
  237.  
  238. <:#284,9360>    statusbarmsg("")
  239.  
  240. <:#284,9360>    hwnd = findwindow("TZ_PORG", 0)
  241.  
  242. <:#284,9360>    showwindow(hwnd, 1)
  243.  
  244. <:#284,9360>    return 0
  245.  
  246. <:#284,9360>endif
  247.  
  248. <:#284,9360>statusbarmsg("")
  249.  
  250. <:#284,9360>pause(001)
  251.  
  252. <:#284,9360>debug:
  253.  
  254. <:#284,9360>dim dates(1)
  255.  
  256. <:#284,9360>dim dates_ann(1)
  257.  
  258. <:#284,9360>dim text(1)
  259.  
  260. <:#284,9360>dim text_ann(1)
  261.  
  262. <:#284,9360>dim time(1)
  263.  
  264. <:#284,9360>monthnum = datestr2datenum(month)
  265.  
  266. <:#284,9360>statusbarmsg("<:f240,BArial,255,0,0>Reading Organizer data...<:f>")
  267.  
  268. <:#284,9360>numrecs = readorgdates(&dates, &text, &time, year, monthnum)
  269.  
  270. <:#284,9360>statusbarmsg("")
  271.  
  272. <:#284,9360>if numrecs = 0
  273.  
  274. <:#284,9360><:f240,BArial,0,0,128>    Goto Anniver    <:f><:f240,BArial,0,0,128>    ' pmm 5/24/93
  275.  
  276. <:#284,9360>endif
  277.  
  278. <:#284,9360>
  279.  
  280. <:#284,9360>curday = 1
  281.  
  282. <:#284,9360>findday(curday)
  283.  
  284. <:#284,9360>for i = 1 to numrecs
  285.  
  286. <:#284,9360>    orgdate = dates(i)
  287.  
  288. <:#284,9360>    if orgdate <<<;> curday
  289.  
  290. <:#284,9360>        type("<[>tab]<[>up]")
  291.  
  292. <:#284,9360>        curday = findday(orgdate)
  293.  
  294. <:#284,9360>        if curday = 0
  295.  
  296. <:#284,9360>            return 0
  297.  
  298. <:#284,9360>        endif
  299.  
  300. <:#284,9360>    endif
  301.  
  302. <:#284,9360>    timex = time(i)
  303.  
  304. <:#284,9360>    txt = text(i)
  305.  
  306. <:#284,9360>    setstyle("Entry")
  307.  
  308. <:#284,9360>    bold()
  309.  
  310. <:#284,9360>    type("{timex}")
  311.  
  312. <:#284,9360>    bold()
  313.  
  314.     if Instr(0, txt, "    ") <;> 0
  315.  
  316.         findandreplace(&txt, "    ", "   ")
  317.  
  318.     endif
  319.  
  320.     type(" {txt}<[>enter]")
  321.  
  322. <:#284,9360>next
  323.  
  324. <:#284,9360>
  325.  
  326. <:#284,9360><:f240,BArial,0,0,128>Anniver:<:f>
  327.  
  328. <:#284,9360>if getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini") <<<;> 1
  329.  
  330. <:#284,9360>    goto done
  331.  
  332. <:#284,9360>endif
  333.  
  334. <:#284,9360>
  335.  
  336. <:#284,9360>' Now do the anniversary dates
  337.  
  338. <:#284,9360>type("<[>ctrlhome]<[>down]<[>down]")
  339.  
  340. <:#284,9360>statusbarmsg("<:f240,BArial,255,0,0>Reading Organizer Anniversary data...<:f>")
  341.  
  342. <:#284,9360>
  343.  
  344. <:#284,9360>numrecs = readorganniversary(&dates_ann, &text_ann, monthnum)
  345.  
  346. <:#284,9360>statusbarmsg("")
  347.  
  348. <:#284,9360>if numrecs = 0
  349.  
  350. <:#284,9360>    goto done
  351.  
  352. <:#284,9360>endif
  353.  
  354. <:#284,9360>curday = 1
  355.  
  356. <:#284,9360>findday_ann(curday)
  357.  
  358. <:#284,9360>for i = 1 to numrecs
  359.  
  360. <:#284,9360>    orgdate = dates_ann(i)
  361.  
  362. <:#284,9360>    if orgdate <<<;> curday
  363.  
  364. <:#284,9360>        type("<[>tab]<[>up]")
  365.  
  366. <:#284,9360>        curday = findday_ann(orgdate)
  367.  
  368. <:#284,9360>        if curday = 0
  369.  
  370. <:#284,9360>            return 0
  371.  
  372. <:#284,9360>        endif
  373.  
  374. <:#284,9360>    endif
  375.  
  376. <:#284,9360>    txt = text_ann(i)
  377.  
  378.     if Instr(0, txt, "    ") <;> 0
  379.  
  380.         findandreplace(&txt, "    ", "   ")
  381.  
  382.     endif
  383.  
  384.     type("{txt}<[>enter]")
  385.  
  386. <:#284,9360>next
  387.  
  388. <:#284,9360>
  389.  
  390. <:#284,9360>done:
  391.  
  392. <:#284,9360>defstr fh;
  393.  
  394. delfile(GetProfileString$("OrgCal", "AnniversaryFile", "amipro2.ini"))
  395.  
  396. delfile(GetProfileString$("OrgCal", "CalendarFile", "amipro2.ini"))
  397.  
  398. <:#284,9360>pause(001)
  399.  
  400. <:#284,9360>message("<:f240,BArial,255,0,0>Here is your calendar from Lotus Organizer.", "Ami Pro<:f>")
  401.  
  402. <:#284,9360>end function
  403.  
  404. <:#284,9360>
  405.  
  406. <:#284,9360>
  407.  
  408. @Function@<:#293,9360>function findday(orgday)
  409.  
  410. <:#284,9360>ignorekeyboard(1)
  411.  
  412. <:#284,9360>while(1)
  413.  
  414. <:#284,9360>    curday = curword$()
  415.  
  416. <:#284,9360>    if curday = orgday
  417.  
  418. <:#284,9360>        type("<[>down]")
  419.  
  420. <:#284,9360>        return curday
  421.  
  422. <:#284,9360>    endif
  423.  
  424. <:#284,9360>    type("<[>tab]")
  425.  
  426. <:#284,9360>    if getmode() <<<;> 129
  427.  
  428. <:#284,9360>        message("<:f240,BArial,255,0,0>Unable to continue.<:f>", "Ami Pro")
  429.  
  430. <:#284,9360>        return 0
  431.  
  432. <:#284,9360>    endif
  433.  
  434. <:#284,9360>wend
  435.  
  436. <:#284,9360>end function
  437.  
  438. <:#284,9360>
  439.  
  440. <:#284,9360>
  441.  
  442. @Function@<:#293,9360>function findday_ann(orgday)
  443.  
  444. <:#284,9360>ignorekeyboard(1)
  445.  
  446. <:#284,9360>while(1)
  447.  
  448. <:#284,9360>    curday = curword$()
  449.  
  450. <:#284,9360>    if curday = orgday
  451.  
  452. <:#284,9360>        type("<[>left]")
  453.  
  454. <:#284,9360>        return curday
  455.  
  456. <:#284,9360>    endif
  457.  
  458. <:#284,9360>    type("<[>tab]")
  459.  
  460. <:#284,9360>    if getmode() <<<;> 129
  461.  
  462. <:#284,9360>        message("<:f240,BArial,255,0,0>Unable to continue.<:f>", "Ami Pro")
  463.  
  464. <:#284,9360>        return 0
  465.  
  466. <:#284,9360>    endif
  467.  
  468. <:#284,9360>wend
  469.  
  470. <:#284,9360>end function
  471.  
  472. <:#284,9360>
  473.  
  474. <:#284,9360>
  475.  
  476. @Function@<:#293,9360>function startcal(year, month)
  477.  
  478. <:#284,9360>ignorekeyboard(1)
  479.  
  480. <:#284,9360>defstr startrow, startcol, endrow, endcol;
  481.  
  482. <:#284,9360>TableGetRange(&StartRow, &StartCol, &EndRow, &EndCol)
  483.  
  484. <:#284,9360>if startrow = 0
  485.  
  486. <:#284,9360>    return 0
  487.  
  488. <:#284,9360>endif
  489.  
  490. <:#284,9360>type("<[>ctrlhome]");
  491.  
  492. <:#284,9360>*year = curword$()
  493.  
  494. <:#284,9360>type("<[>tab]")
  495.  
  496. <:#284,9360>*month = curword$()
  497.  
  498. <:#284,9360>type("<[>down]<[>down]<[>home]<[>home]<[>tab]")
  499.  
  500. <:#284,9360>return 1
  501.  
  502. <:#284,9360>end function
  503.  
  504. <:#284,9360>
  505.  
  506. @Function@<:#293,9360>function getorgdata(orgsection, orgsection2)
  507.  
  508. <:#284,9360>ignorekeyboard(1)
  509.  
  510. <:#284,9360>onerror endit
  511.  
  512. <:#284,9360>oncancel endit
  513.  
  514. <:#284,9360>buffsize=80
  515.  
  516. <:#284,9360>defstr txt;
  517.  
  518. <:#284,9360>hwnd = findwindow("TZ_PORG", 0)
  519.  
  520. <:#284,9360>if isiconic(hwnd)
  521.  
  522. <:#284,9360>    appsendmessage(hwnd, WM_SYSCOMMAND, SC_RESTORE, 0)
  523.  
  524. <+@><:#284,9360>endif
  525.  
  526. <:#284,9360>showwindow(hwnd, 0)
  527.  
  528. <:#284,9360>activateapp("<:f240,BArial,255,0,0>Lotus Organizer<:f>")
  529.  
  530. enablehardwareinput(0)
  531.  
  532. <:#284,9360>wparam = 0x03F2
  533.  
  534. <:#284,9360>lparao = 0x00000000
  535.  
  536. <:#284,9360>PostMessage(hwnd, wm_command, wparam, lparao)
  537.  
  538. <:#284,9360>pause(001)
  539.  
  540. <:#284,9360>hdlg = getactivewindow()
  541.  
  542. <:S+-1><:#284,9360>sendkeys("<[>ctrlhome]")    ' go to beginning of organize and do File/Export
  543.  
  544. <:S+-1><:#284,9360>pause(002)
  545.  
  546. <:S+-1><:#284,9360>for i = 1 to 20
  547.  
  548. <:#568,9360>    SendMessageC(GetDlgItem(getactivewindow(), 301), WM_GETTEXT, buffsize, &txt)
  549.  
  550. <:#284,9360>    if Instr(3, txt, orgsection) <;> 1
  551.  
  552. <:#284,9360>        goto rabbit
  553.  
  554. <:#284,9360>    endif
  555.  
  556. <:#284,9360>    sendkeys("<:f240,BArial,255,0,0><[>down]<:f>") ' go to next org item in combo box
  557.  
  558. <:#284,9360>next
  559.  
  560. <:#284,9360>statusbarmsg("")
  561.  
  562. <:#284,9360>enablehardwareinput(1)
  563.  
  564. <:#284,9360>return 0
  565.  
  566. <:#284,9360>rabbit:
  567.  
  568. <:#284,9360>temp = getwindowsdirectory$()
  569.  
  570. <:#284,9360>if right$(temp, 1) <<<;> "\"
  571.  
  572. <:#284,9360>    temp = strcat$(temp, "\")
  573.  
  574. <:#284,9360>endif
  575.  
  576. <:#284,9360>again:
  577.  
  578. <:#284,9360>uname = right$(now(), 7)
  579.  
  580. <:#284,9360>filename = "{temp}~{uname}.tmp"
  581.  
  582. <:#284,9360>WriteProfileString("OrgCal", "CalendarFile", filename, "amipro2.ini");
  583.  
  584. <:#284,9360>
  585.  
  586. <:#284,9360>sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]u<[>altf]<:f>")
  587.  
  588. <:#284,9360>pause(001)
  589.  
  590. <:#284,9360>if GetDlgItemText(getactivewindow(), 307) <<<;> 1
  591.  
  592. <:#284,9360>    sendkeys(" ") ' send a space to check the box
  593.  
  594. <:#284,9360>endif
  595.  
  596. <:#568,9360>sendkeys("<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each country, also alt+f+space sets field names as first record option
  597.  
  598. <:#568,9360>'sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]<:f240,BArial,0,0,255>m<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each country
  599.  
  600. <:#568,9360>sendkeys("<:f240,BArial,255,0,0><[>alte<:f><:f240,BArial,255,0,0>]a<:f><:f240,BArial,255,0,0><[>tab]{filename}<:f><:f240,BArial,255,0,0><[>enter]<[>altm]<[>enter]<:f>") ' command organizer to export ascii format to file and map all fields
  601.  
  602. <:#284,9360>hdlg = getactivewindow()
  603.  
  604. <:#284,9360>defstr windowtext;
  605.  
  606. <:#284,9360>pause(002)
  607.  
  608. <:#284,9360>while(1)
  609.  
  610. <:#284,9360>    getwindowtext(getactivewindow(), &windowtext)
  611.  
  612. <:#568,9360>    if windowtext = "<:f240,BArial,255,0,0>Lotus Organizer<:f>" ' check on export dialog box title bar until it is gone
  613.  
  614. <:#284,9360>        sendkeys("<:f240,BArial,255,0,0><[><:f240,BArial,255,0,0>esc<:f><:f240,BArial,255,0,0>]<:f>") ' clear the next message box
  615.  
  616. <:#284,9360>        break
  617.  
  618. <:#284,9360>    endif
  619.  
  620. <:#284,9360>    pause(010)
  621.  
  622. <:#284,9360>    if windowtext <<<;> "<:f240,BArial,255,0,0>Status<:f>"
  623.  
  624. <:#284,9360>        break
  625.  
  626. <:#284,9360>    endif
  627.  
  628. <:#284,9360>wend
  629.  
  630. <:#284,9360>if getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini") <<<;> 1
  631.  
  632. <:#284,9360>    goto done
  633.  
  634. <:#284,9360>endif
  635.  
  636. <:#284,9360>
  637.  
  638. <:#284,9360>again2:
  639.  
  640. <:#284,9360>uname = right$(now(), 7)
  641.  
  642. <:#284,9360>filename = "{temp}~{uname}.tmp"
  643.  
  644. <:#284,9360>WriteProfileString("OrgCal", "AnniversaryFile", filename, "amipro2.ini");
  645.  
  646. <:#284,9360>
  647.  
  648. <:#284,9360>PostMessage(hwnd, wm_command, wparam, lparao)
  649.  
  650. <:#284,9360>pause(001)
  651.  
  652. <:#284,9360>hdlg = getactivewindow()
  653.  
  654. <:S+-1><:#284,9360>sendkeys("<[>ctrlhome]")
  655.  
  656. <:S+-1><:#284,9360>for i = 1 to 20
  657.  
  658. <:#568,9360>    SendMessageC(GetDlgItem(getactivewindow(), 301), WM_GETTEXT, buffsize, &txt)
  659.  
  660. <:#284,9360>    if Instr(3, txt, orgsection2) <;> 1
  661.  
  662. <:#284,9360>        goto rabbit2
  663.  
  664. <:#284,9360>    endif
  665.  
  666. <:#284,9360>    sendkeys("<:f240,BArial,255,0,0><[>down]<:f>") ' see above
  667.  
  668. <:#284,9360>next
  669.  
  670. <:#284,9360>enablehardwareinput(1)
  671.  
  672. <:#284,9360>return 0
  673.  
  674. <:#284,9360>rabbit2:
  675.  
  676. <:#284,9360>sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]u<[>altf]<:f>")
  677.  
  678. <:#284,9360>pause(001)
  679.  
  680. <:#284,9360>if GetDlgItemText(getactivewindow(), 307) <<<;> 1
  681.  
  682. <:#284,9360>    sendkeys(" ") ' send a space to check the box
  683.  
  684. <:#284,9360>endif
  685.  
  686. <:#568,9360>sendkeys("<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each country, also alt+f+space sets field names as first record option
  687.  
  688. <:#568,9360>'sendkeys("<:f240,BArial,255,0,0><[>alto]<[>altt]<:f240,BArial,0,0,255>m<:f240,BArial,255,0,0><[>enter]<:f>") ' U sets US 437 in US, need to localize for each country
  689.  
  690. <:#568,9360>sendkeys("<:f240,BArial,255,0,0><[>alte<:f><:f240,BArial,255,0,0>]a<:f><:f240,BArial,255,0,0><[>tab]{filename}<:f><:f240,BArial,255,0,0><[>enter]<[>altm]<[>enter]<:f>") ' command organizer to export ascii format to file and map all fields
  691.  
  692. <:#284,9360>hdlg = getactivewindow()
  693.  
  694. <:#284,9360>pause(002)
  695.  
  696. <:#284,9360>while(1)
  697.  
  698. <:#284,9360>    getwindowtext(getactivewindow(), &windowtext)
  699.  
  700. <:#284,9360>    if windowtext = "<:f240,BArial,255,0,0>Lotus Organizer<:f>" ' see above
  701.  
  702. <:#284,9360>        sendkeys("<:f240,BArial,255,0,0><[>esc<:f><:f240,BArial,255,0,0>]<:f>") ' see above
  703.  
  704. <:#284,9360>        break
  705.  
  706. <:#284,9360>    endif
  707.  
  708. <:#284,9360>    pause(010)
  709.  
  710. <:#284,9360>    if windowtext <<<;> "<:f240,BArial,255,0,0>Status<:f>"
  711.  
  712. <:#284,9360>        break
  713.  
  714. <:#284,9360>    endif
  715.  
  716. <:#284,9360>wend
  717.  
  718. <:#284,9360>done:
  719.  
  720. <:#284,9360>appminimize("<:f240,BArial,255,0,0>Lotus Organizer<:f>")
  721.  
  722. <:#284,9360>showwindow(hwnd, 1)
  723.  
  724. <:#284,9360>activateapp("")
  725.  
  726. <:#284,9360>enablehardwareinput(1)
  727.  
  728. <:#284,9360>return 1
  729.  
  730. <:#284,9360>endit:
  731.  
  732. <:#284,9360>showwindow(hwnd, 1)
  733.  
  734. <:#284,9360>enablehardwareinput(1)
  735.  
  736. <:#284,9360>return 0
  737.  
  738. <:#284,9360>end function
  739.  
  740. <:#284,9360>
  741.  
  742. <:#284,9360>
  743.  
  744. @Function@<:#293,9360>function readorganniversary(dates_ann, text_ann, month)
  745.  
  746. <:#284,9360>ignorekeyboard(1)
  747.  
  748. <:#284,9360>onerror endit
  749.  
  750. <:#284,9360>oncancel endit
  751.  
  752. <:#284,9360>DIM field(2)
  753.  
  754. <:#284,9360>'pause(030)
  755.  
  756. <:#284,9360>datafile = GetProfileString$("OrgCal", "AnniversaryFile", "amipro2.ini");
  757.  
  758. <:#284,9360>fh = fopen(datafile, "r")
  759.  
  760. <:#284,9360>if fh = 0
  761.  
  762. <:#284,9360>    return 0
  763.  
  764. <:#284,9360>endif
  765.  
  766. <:#284,9360>if fgets$(fh) = -1
  767.  
  768. <:#284,9360>    fclose(fh)
  769.  
  770. <:#284,9360>    return 0
  771.  
  772. <:#284,9360>endif
  773.  
  774. <:#284,9360>fclose(fh)
  775.  
  776. <:#284,9360>handle = RecOpen(datafile,, "*Comma:1", 0)
  777.  
  778. <:#284,9360>IF handle = 0
  779.  
  780. <:#284,9360>    return 0
  781.  
  782. <:#284,9360>endif
  783.  
  784. <:#284,9360>numfields = RecFieldCount(handle)
  785.  
  786. <:#284,9360>if numfields << 1
  787.  
  788. <:#284,9360>    goto endit
  789.  
  790. <:#284,9360>endif
  791.  
  792. <:#284,9360>
  793.  
  794. <:#284,9360>sep = GetProfileString$("intl", "sDate")
  795.  
  796. <:#284,9360>if sep = ""
  797.  
  798. <:#284,9360>    sep = "/"
  799.  
  800. <:#284,9360>endif
  801.  
  802. <:#284,9360>sShortDate = ucase$(GetProfileString$("intl", "sShortDate"))
  803.  
  804. <:#284,9360>if sShortDate = ""
  805.  
  806.     sShortDate = "M/D/YY"
  807.  
  808. <:#284,9360>endif
  809.  
  810. <:#284,9360>for i = 1 to 3
  811.  
  812. <:#284,9360>    smonth = strfield$(sShortDate, i, sep)
  813.  
  814. <:#284,9360>    if smonth = "M"
  815.  
  816. <:#284,9360>        smonth = i
  817.  
  818. <:#284,9360>        break
  819.  
  820. <:#284,9360>    endif
  821.  
  822. <:#284,9360>next
  823.  
  824. <:#284,9360>for i = 1 to 3
  825.  
  826. <:#284,9360>    sday = strfield$(sShortDate, i, sep)
  827.  
  828. <:#284,9360>    if sday = "D"
  829.  
  830. <:#284,9360>        sday = i
  831.  
  832. <:#284,9360>        break
  833.  
  834. <:#284,9360>    endif
  835.  
  836. <:#284,9360>next
  837.  
  838. <:#284,9360>for i = 1 to 3
  839.  
  840. <:#284,9360>    syear = strfield$(sShortDate, i, sep)
  841.  
  842. <:#284,9360>    if syear = "YY"
  843.  
  844. <:#284,9360>        syear = i
  845.  
  846. <:#284,9360>        break
  847.  
  848. <:#284,9360>    endif
  849.  
  850. <:#284,9360>next
  851.  
  852. <:#284,9360>
  853.  
  854. <:#284,9360>FOR I = 1 to 2
  855.  
  856. <:#284,9360>    name = (RecFieldName$(handle, I))
  857.  
  858. <:#284,9360>    field(i) = name
  859.  
  860. <:#284,9360>NEXT
  861.  
  862. <:#284,9360>i = 1
  863.  
  864. <:#284,9360>
  865.  
  866. <:#284,9360>WHILE RecNextRec(handle) = 0
  867.  
  868. <:#284,9360>    name = (RecGetField(handle, field(1))); ' date
  869.  
  870. <:#284,9360>    orgmonth = strfield$(name, smonth, sep)
  871.  
  872. <:#284,9360>    if orgmonth <<<;> month
  873.  
  874. <:#284,9360>        goto skipit
  875.  
  876. <:#284,9360>    endif
  877.  
  878. <:#284,9360>    date = strfield$(name, sday, sep)
  879.  
  880. <:#284,9360>    if left$(date, 1) = 0
  881.  
  882. <:#284,9360>        date = right$(date, 1)
  883.  
  884. <:#284,9360>    endif
  885.  
  886. <:#284,9360>    ArrayInsert(&dates_ann, i, date) ' insert the date
  887.  
  888. <:#284,9360>    name = (RecGetField(handle, field(2)));
  889.  
  890. <:#284,9360>    ArrayInsert(&text_ann, i, name)
  891.  
  892. <:#284,9360>    statusbarmsg(name)
  893.  
  894. <:#284,9360>    i = i + 1
  895.  
  896. <:#284,9360>    skipit:
  897.  
  898. <:#284,9360>WEND
  899.  
  900. <:#284,9360>RecClose(handle)
  901.  
  902. <:#284,9360>statusbarmsg("")
  903.  
  904. <:#284,9360>return i - 1
  905.  
  906. <:#284,9360>endit:
  907.  
  908. <:#284,9360>RecClose(handle)
  909.  
  910. <:#284,9360>statusbarmsg("")
  911.  
  912. <:#284,9360>return 0
  913.  
  914. <:#284,9360>end function
  915.  
  916. <:#284,9360>
  917.  
  918. <:#284,9360>
  919.  
  920. @Function@<:#293,9360>function readorgdates(dates, text, time, year, month)
  921.  
  922. <:#284,9360>ignorekeyboard(1)
  923.  
  924. <:#284,9360>onerror endit
  925.  
  926. <:#284,9360>oncancel endit
  927.  
  928. <:#284,9360>mynumfields = 4
  929.  
  930. <:#284,9360>year = right$(year, 2)
  931.  
  932. <:#284,9360>DIM field(mynumfields)
  933.  
  934. <:#284,9360>datafile = GetProfileString$("OrgCal", "CalendarFile", "amipro2.ini");
  935.  
  936. <:#284,9360>'pause(030)
  937.  
  938. <:#284,9360>fh = fopen(datafile, "r")
  939.  
  940. <:#284,9360>if fh = 0
  941.  
  942. <:#284,9360>    return 0
  943.  
  944. <:#284,9360>endif
  945.  
  946. <:#284,9360>if fgets$(fh) = -1
  947.  
  948. <:#284,9360>    fclose(fh)
  949.  
  950. <:#284,9360>    return 0
  951.  
  952. <:#284,9360>endif
  953.  
  954. <:#284,9360>fclose(fh)
  955.  
  956. <:#284,9360>handle = RecOpen(datafile,, "*Comma:1", 0)
  957.  
  958. <:#284,9360>IF handle = 0
  959.  
  960. <:#284,9360>    return 0
  961.  
  962. <:#284,9360>endif
  963.  
  964. <:#284,9360>numfields = RecFieldCount(handle)
  965.  
  966. <:#284,9360>if numfields << 1
  967.  
  968. <:#284,9360>    goto endit
  969.  
  970. <:#284,9360>endif
  971.  
  972. <:#284,9360>
  973.  
  974. <:#284,9360>sep = GetProfileString$("intl", "sDate")
  975.  
  976. <:#284,9360>if sep = ""
  977.  
  978. <:#284,9360>    sep = "/"
  979.  
  980. <:#284,9360>endif
  981.  
  982. <:#284,9360>sShortDate = ucase$(GetProfileString$("intl", "sShortDate"))
  983.  
  984. <:#284,9360>if sShortDate = ""
  985.  
  986.     sShortDate = "M/D/YY"
  987.  
  988. <:#284,9360>endif
  989.  
  990. <:#284,9360>for i = 1 to 3
  991.  
  992. <:#284,9360>    smonth = strfield$(sShortDate, i, sep)
  993.  
  994. <:#284,9360>    if smonth = "M"
  995.  
  996. <:#284,9360>        smonth = i
  997.  
  998. <:#284,9360>        break
  999.  
  1000. <:#284,9360>    endif
  1001.  
  1002. <:#284,9360>next
  1003.  
  1004. <:#284,9360>for i = 1 to 3
  1005.  
  1006. <:#284,9360>    sday = strfield$(sShortDate, i, sep)
  1007.  
  1008. <:#284,9360>    if sday = "D"
  1009.  
  1010. <:#284,9360>        sday = i
  1011.  
  1012. <:#284,9360>        break
  1013.  
  1014. <:#284,9360>    endif
  1015.  
  1016. <:#284,9360>next
  1017.  
  1018. <:#284,9360>for i = 1 to 3
  1019.  
  1020. <:#284,9360>    syear = strfield$(sShortDate, i, sep)
  1021.  
  1022. <:#284,9360>    if syear = "YY"
  1023.  
  1024. <:#284,9360>        syear = i
  1025.  
  1026. <:#284,9360>        break
  1027.  
  1028. <:#284,9360>    endif
  1029.  
  1030. <:#284,9360>next
  1031.  
  1032. <:#284,9360>
  1033.  
  1034. <:#284,9360>FOR i = 1 to mynumfields
  1035.  
  1036. <:#284,9360>    name = (RecFieldName$(handle, i))
  1037.  
  1038. <:#284,9360>    field(i) = name
  1039.  
  1040. <:#284,9360>NEXT
  1041.  
  1042. <:#284,9360>i = 1
  1043.  
  1044. <:#284,9360>WHILE RecNextRec(handle) = 0
  1045.  
  1046. <:#284,9360>    name = (RecGetField(handle, field(1))); ' date
  1047.  
  1048. <:#284,9360>    orgyear = strfield$(name, syear, sep)
  1049.  
  1050. <:#284,9360>    if orgyear <<<;> year
  1051.  
  1052. <:#284,9360>        goto skipit
  1053.  
  1054. <:#284,9360>    endif
  1055.  
  1056. <:#284,9360>    orgmonth = strfield$(name, smonth, sep)
  1057.  
  1058. <:#284,9360>    if orgmonth <<<;> month
  1059.  
  1060. <:#284,9360>        goto skipit
  1061.  
  1062. <:#284,9360>    endif
  1063.  
  1064. <:#284,9360>    date = strfield$(name, sday, sep)
  1065.  
  1066. <:#284,9360>    if left$(date, 1) = 0
  1067.  
  1068. <:#284,9360>        date = right$(date, 1)
  1069.  
  1070. <:#284,9360>    endif
  1071.  
  1072. <:#284,9360>    ArrayInsert(&dates, i, date) ' insert the date
  1073.  
  1074. <:#284,9360>    name = (RecGetField(handle, field(2))); ' time
  1075.  
  1076. <:#284,9360>    ArrayInsert(&time, i, name)
  1077.  
  1078. <:#284,9360>    name = (RecGetField(handle, field(4))); ' text
  1079.  
  1080. <:#284,9360>    ArrayInsert(&text, i, name)
  1081.  
  1082. <:#284,9360>    statusbarmsg(name)
  1083.  
  1084. <:#284,9360>    i = i + 1
  1085.  
  1086. <:#284,9360>    skipit:
  1087.  
  1088. <:#284,9360>WEND
  1089.  
  1090. <:#284,9360>RecClose(handle)
  1091.  
  1092. <:#284,9360>statusbarmsg("")
  1093.  
  1094. <:#284,9360>return i - 1
  1095.  
  1096. <:#284,9360>endit:
  1097.  
  1098. <:#284,9360>RecClose(handle)
  1099.  
  1100. <:#284,9360>statusbarmsg("")
  1101.  
  1102. <:#284,9360>return 0
  1103.  
  1104. <:#284,9360>end function
  1105.  
  1106. @Function@<:#293,9360>
  1107.  
  1108. <:#284,9360>
  1109.  
  1110. @Function@<:#293,9360>function helpme()
  1111.  
  1112. <:#568,9360>WinHelpa(FindWindow("AmiProWndA", 0), strcat$(GetAmiDirectory$(), "HelpPack.hlp"), 0x0001, 140)
  1113.  
  1114. <:#284,9360>end function
  1115.  
  1116. <:#284,9360>
  1117.  
  1118. <:#284,9360>
  1119.  
  1120. @Function@<:#293,9360>function datenum2datestr(orgmonth)
  1121.  
  1122. <:#284,9360>ignorekeyboard(1)
  1123.  
  1124. <:#284,9360>switch orgmonth
  1125.  
  1126. <:#284,9360>    case 01
  1127.  
  1128. <:#284,9360><:f240,BArial,255,0,0>        return "January"
  1129.  
  1130. <:#284,9360><:f240,BArial,255,0,0>    case 02
  1131.  
  1132. <:#284,9360><:f240,BArial,255,0,0>        return "February"
  1133.  
  1134. <:#284,9360><:f240,BArial,255,0,0>    case 03
  1135.  
  1136. <:#284,9360><:f240,BArial,255,0,0>        return "March"
  1137.  
  1138. <:#284,9360><:f240,BArial,255,0,0>    case 04
  1139.  
  1140. <:#284,9360><:f240,BArial,255,0,0>        return "April"
  1141.  
  1142. <:#284,9360><:f240,BArial,255,0,0>    case 05
  1143.  
  1144. <:#284,9360><:f240,BArial,255,0,0>        return "May"
  1145.  
  1146. <:#284,9360><:f240,BArial,255,0,0>    case 06
  1147.  
  1148. <:#284,9360><:f240,BArial,255,0,0>        return "June"
  1149.  
  1150. <:#284,9360><:f240,BArial,255,0,0>    case 07
  1151.  
  1152. <:#284,9360><:f240,BArial,255,0,0>        return "July"
  1153.  
  1154. <:#284,9360><:f240,BArial,255,0,0>    case 08
  1155.  
  1156. <:#284,9360><:f240,BArial,255,0,0>        return "August"
  1157.  
  1158. <:#284,9360><:f240,BArial,255,0,0>    case 09
  1159.  
  1160. <:#284,9360><:f240,BArial,255,0,0>        return "September"
  1161.  
  1162. <:#284,9360><:f240,BArial,255,0,0>    case 10
  1163.  
  1164. <:#284,9360><:f240,BArial,255,0,0>        return "October"
  1165.  
  1166. <:#284,9360><:f240,BArial,255,0,0>    case 11
  1167.  
  1168. <:#284,9360><:f240,BArial,255,0,0>        return "November"
  1169.  
  1170. <:#284,9360><:f240,BArial,255,0,0>    case 12
  1171.  
  1172. <:#284,9360><:f240,BArial,255,0,0>        return "December"
  1173.  
  1174. <:#284,9360>endswitch
  1175.  
  1176. <:#284,9360>end function
  1177.  
  1178. <:#284,9360>
  1179.  
  1180. @Function@<:#293,9360>function datestr2datenum(orgmonth)
  1181.  
  1182. <:#284,9360>ignorekeyboard(1)
  1183.  
  1184. <:#284,9360>switch orgmonth
  1185.  
  1186. <:#284,9360><:f240,BArial,255,0,0>    case "January"
  1187.  
  1188. <:#284,9360><:f240,BArial,255,0,0>        return 01
  1189.  
  1190. <:#284,9360><:f240,BArial,255,0,0>    case "February"
  1191.  
  1192. <:#284,9360><:f240,BArial,255,0,0>        return 02
  1193.  
  1194. <:#284,9360><:f240,BArial,255,0,0>    case "March"
  1195.  
  1196. <:#284,9360><:f240,BArial,255,0,0>        return 03
  1197.  
  1198. <:#284,9360><:f240,BArial,255,0,0>    case "April"
  1199.  
  1200. <:#284,9360><:f240,BArial,255,0,0>        return 04
  1201.  
  1202. <:#284,9360><:f240,BArial,255,0,0>    case "May"
  1203.  
  1204. <:#284,9360><:f240,BArial,255,0,0>        return 05
  1205.  
  1206. <:#284,9360><:f240,BArial,255,0,0>    case "June"
  1207.  
  1208. <:#284,9360><:f240,BArial,255,0,0>        return 06
  1209.  
  1210. <:#284,9360><:f240,BArial,255,0,0>    case "July"
  1211.  
  1212. <:#284,9360><:f240,BArial,255,0,0>        return 07
  1213.  
  1214. <:#284,9360><:f240,BArial,255,0,0>    case "August"
  1215.  
  1216. <:#284,9360><:f240,BArial,255,0,0>        return 08
  1217.  
  1218. <:#284,9360><:f240,BArial,255,0,0>    case "September"
  1219.  
  1220. <:#284,9360><:f240,BArial,255,0,0>        return 09
  1221.  
  1222. <:#284,9360><:f240,BArial,255,0,0>    case "October"
  1223.  
  1224. <:#284,9360><:f240,BArial,255,0,0>        return 10
  1225.  
  1226. <:#284,9360><:f240,BArial,255,0,0>    case "November"
  1227.  
  1228. <:#284,9360><:f240,BArial,255,0,0>        return 11
  1229.  
  1230. <:#284,9360><:f240,BArial,255,0,0>    case "December"
  1231.  
  1232. <:#284,9360>        return 12
  1233.  
  1234. <:#284,9360>endswitch
  1235.  
  1236. <:#284,9360>end function
  1237.  
  1238. @Function@<:#293,9360>
  1239.  
  1240. <:#284,9360>
  1241.  
  1242. <:#284,9360>FUNCTION AutoCal(year, month)
  1243.  
  1244. <:#284,9360>ignorekeyboard(1)
  1245.  
  1246. @Remark@<:#284,9360>'Declaration of Variables
  1247.  
  1248. <:#284,9360>DEFSTR Month1   <:f160,2Tms Rmn,255,0,0>'This variable contains the month direct from the dialog box.<:f>
  1249.  
  1250. <:#284,9360>DEFSTR Year1  <:f160,2Tms Rmn,255,0,0> 'This variable contains the year direct from dialog box (YYYY).<:f>
  1251.  
  1252. <:#284,9360>DEFSTR LMonth  <:f160,2Tms Rmn,255,0,0> 'This variable contains the calendar month in lower case.<:f>
  1253.  
  1254. <:#284,9360>DEFSTR NMonth <:f160,2Tms Rmn,255,0,0> 'This variable contains the month and day of Calendar Date  (MM/DD/).<:f>
  1255.  
  1256. <:#284,9360>DEFSTR Stat1   <:f160,2Tms Rmn,255,0,0>'This variable checks for Cancel from dialog box.<:f>
  1257.  
  1258. <:#284,9360>DEFSTR FirstDayWeek  <:f160,2Tms Rmn,255,0,0> 'This contains the Value of the day of the week the month starts on.<:f>
  1259.  
  1260. <:#284,9360>DEFSTR LastDay  <:f160,2Tms Rmn,255,0,0>'This contains the value of the number of days in current month.<:f>
  1261.  
  1262. <:#284,9360>DEFSTR ChkLen  <:f160,2Tms Rmn,255,0,0>'This contains the value representing the number of characters in the year that was typed in Heymon.<:f>
  1263.  
  1264. <:#284,9360>DEFSTR CurStyleSheet  <:f160,2Tms Rmn,255,0,0>'This contains the style sheet for the current dicument<:f>
  1265.  
  1266. <:#284,9360>DEFSTR CurDocName <:f160,2Tms Rmn,255,0,0> 'This contains the name of the current document.<:f>
  1267.  
  1268. <:#284,9360>DEFSTR TotalWindows  <:f160,2Tms Rmn,255,0,0>'This contains the number of MDI windows open when starting macro.
  1269.  
  1270. @Remark@<:#284,9360>'Declaration of Functions.
  1271.  
  1272. <:#284,9360>DECLARE BuildDate(M,Y,N)
  1273.  
  1274. <:#284,9360>DECLARE FillCalendar(F,L)
  1275.  
  1276. <:#284,9360>DECLARE CheckLeap(M,Y,N)
  1277.  
  1278. <:#284,9360>DECLARE AdjustTable()
  1279.  
  1280. <:#284,9360>NW=IsNewWave()
  1281.  
  1282. <:#284,9360>if nw = 1
  1283.  
  1284. <:#284,9360>    message("<:f240,BArial,255,0,0>Unable to run under NewWave.<:f>", "Ami Pro")
  1285.  
  1286. <:#284,9360>    return 0
  1287.  
  1288. <:#284,9360>ENDIF
  1289.  
  1290. <:#284,9360>LayoutMode()
  1291.  
  1292. <:#284,9360>FullPageView()
  1293.  
  1294. <:#284,9360>rmac = getrunningmacrofile$()
  1295.  
  1296. <:#284,9360>tryagain:
  1297.  
  1298. @Remark@<:#284,9360>'Fill Edit boxes with current Month and Year.
  1299.  
  1300. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,StrField$(FormatDate$(Now(),"c"),2." "))
  1301.  
  1302. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9501,StrField$(FormatDate$(Now(),"c"),3." "))
  1303.  
  1304. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"January")
  1305.  
  1306. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"February")
  1307.  
  1308. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"March")
  1309.  
  1310. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"April")
  1311.  
  1312. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"May")
  1313.  
  1314. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"June")
  1315.  
  1316. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"July")
  1317.  
  1318. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"August")
  1319.  
  1320. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"September")
  1321.  
  1322. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"October")
  1323.  
  1324. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"November")
  1325.  
  1326. <:#284,9360><:f240,BArial,255,0,0>FillEdit(9500,"December")
  1327.  
  1328. <:#284,9360>FillEdit(9501,"1980")
  1329.  
  1330. <:#284,9360>FillEdit(9501,"1981")
  1331.  
  1332. <:#284,9360>FillEdit(9501,"1982")
  1333.  
  1334. <:#284,9360>FillEdit(9501,"1983")
  1335.  
  1336. <:#284,9360>FillEdit(9501,"1984")
  1337.  
  1338. <:#284,9360>FillEdit(9501,"1985")
  1339.  
  1340. <:#284,9360>FillEdit(9501,"1986")
  1341.  
  1342. <:#284,9360>FillEdit(9501,"1987")
  1343.  
  1344. <:#284,9360>FillEdit(9501,"1988")
  1345.  
  1346. <:#284,9360>FillEdit(9501,"1989")
  1347.  
  1348. <:#284,9360>FillEdit(9501,"1990")
  1349.  
  1350. <:#284,9360>FillEdit(9501,"1991")
  1351.  
  1352. <:#284,9360>FillEdit(9501,"1992")
  1353.  
  1354. <:#284,9360>FillEdit(9501,"1993")
  1355.  
  1356. <:#284,9360>FillEdit(9501,"1994")
  1357.  
  1358. <:#284,9360>FillEdit(9501,"1995")
  1359.  
  1360. <:#284,9360>FillEdit(9501,"1996")
  1361.  
  1362. <:#284,9360>FillEdit(9501,"1997")
  1363.  
  1364. <:#284,9360>FillEdit(9501,"1998")
  1365.  
  1366. <:#284,9360>FillEdit(9501,"1999")
  1367.  
  1368. <:#284,9360>filledit(20, getprofilestring$("OrgCal", "DoAnniversary", "amipro2.ini"))
  1369.  
  1370. @Remark@<:#284,9360>
  1371.  
  1372. @Remark@<:#284,9360>'Call Dialog box for data entry and get data from edit boxes.
  1373.  
  1374. <:#284,9360>
  1375.  
  1376. <:#284,9360>SetDlgCallBack(0, "{rmac}!initdlg")
  1377.  
  1378. <:#284,9360>dlgkeyinterrupt(<[>f1], "{rmac}!helpme")
  1379.  
  1380. <:#284,9360>Stat1=DialogBox("." "Heymon")
  1381.  
  1382. <:#284,9360>deletefont()
  1383.  
  1384. <:#284,9360>if stat1 = 0
  1385.  
  1386. <:#284,9360>    return 0
  1387.  
  1388. <:#284,9360>endif
  1389.  
  1390. <:#284,9360>if findwindow("TZ_PORG", 0) << 1
  1391.  
  1392. <:#284,9360>    PostMessage(getactivewindow(),0x111,1,0)
  1393.  
  1394. <:#284,9360>    message("<:f240,BArial,255,0,0>Lotus Organizer is not running.<:f>", "Ami Pro")
  1395.  
  1396. <:#284,9360>    return 0
  1397.  
  1398. <:#284,9360>endif
  1399.  
  1400. <:#284,9360>
  1401.  
  1402. <:#284,9360>Month1=GetDialogField$(9500)
  1403.  
  1404. <:#284,9360>Year1=GetDialogField$(9501)
  1405.  
  1406. @Remark@<:#284,9360>WriteProfileString("OrgCal", "DoAnniversary", getdialogfield$(20), "amipro2.ini")
  1407.  
  1408. @Remark@<:#284,9360>'Check for Cancel.
  1409.  
  1410. @Remark@<:#284,9360>'Check for error in entry.
  1411.  
  1412. <:#284,9360>IF Year1 << 1980 OR Year1 <;> 1999
  1413.  
  1414. <:#284,9360>    Message("Year must be in the range 1980 to 1999.")
  1415.  
  1416. <:#284,9360>    FillEdit(9500,Month1)
  1417.  
  1418. <:#284,9360>    FillEdit(9501,Year1)
  1419.  
  1420. <:#284,9360>    GOTO TryAgain
  1421.  
  1422. <:#284,9360>ENDIF
  1423.  
  1424. <:#284,9360>ChkLen = LEN(Year1)
  1425.  
  1426. <:#284,9360>IF ChkLen<<<;>4
  1427.  
  1428. <:f240,BArial,255,0,0>    Message("Year must be in the format, YYYY (Ex. 
  1429. <:f240,BArial,255,0,0>'1991')")<:f>
  1430.  
  1431. <:#284,9360>    FillEdit(9500,Month1)
  1432.  
  1433. <:#284,9360>    FillEdit(9501,Year1)
  1434.  
  1435. <:#284,9360>    GOTO TryAgain
  1436.  
  1437. <:#284,9360>'ELSEIF Year1<<1980 OR Year1<;>1999
  1438.  
  1439. <:#284,9360><:f240,BArial,255,0,0>    Message("Year must be in a range from 1980 to 1999.")<:f>
  1440.  
  1441. <:#284,9360>    FillEdit(9500,Month1)
  1442.  
  1443. <:#284,9360>    FillEdit(9501,Year1)
  1444.  
  1445. <:#284,9360>    GOTO TryAgain
  1446.  
  1447. <:#284,9360>ENDIF
  1448.  
  1449. @Remark@<:#284,9360>'Convert month to lower case and process.
  1450.  
  1451. <:#284,9360>LMonth=LCase$(Month1)
  1452.  
  1453. <:#284,9360>IF LMonth= <:f240,BArial,255,0,0>"january" 
  1454.  
  1455. <:#284,9360>    NMonth=<:f240,BArial,255,0,0>"01/01/"<:f>
  1456.  
  1457. <:#284,9360>    LastDay=31
  1458.  
  1459. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1460.  
  1461. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1462.  
  1463. <:#284,9360>ELSEIF LMonth= <:f240,BArial,255,0,0>"february"  
  1464.  
  1465. <:#284,9360><:f240,BArial,255,0,0>    NMonth="02/01/"
  1466.  
  1467. <:#284,9360>    LastDay=CheckLeap(Month1,Year1,NMonth)
  1468.  
  1469. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1470.  
  1471. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1472.  
  1473. <:#284,9360><:f240,BArial,255,0,0>ELSEIF LMonth= "march"<:f>
  1474.  
  1475. <:#284,9360><:f240,BArial,255,0,0>    NMonth="03/01/"
  1476.  
  1477. <:#284,9360>    LastDay=31
  1478.  
  1479. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1480.  
  1481. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1482.  
  1483. <:#284,9360><:f240,BArial,255,0,0>ELSEIF LMonth= "april"  
  1484.  
  1485. <:#284,9360><:f240,BArial,255,0,0>    NMonth="04/01/"
  1486.  
  1487. <:#284,9360>    LastDay=30
  1488.  
  1489. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1490.  
  1491. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1492.  
  1493. <:#284,9360><:f240,BArial,255,0,0>ELSEIF LMonth= "may"  
  1494.  
  1495. <:#284,9360><:f240,BArial,255,0,0>    NMonth="05/01/"
  1496.  
  1497. <:#284,9360>    LastDay=31
  1498.  
  1499. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1500.  
  1501. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1502.  
  1503. <:#284,9360><:f240,BArial,255,0,0>ELSEIF LMonth= "june"  
  1504.  
  1505. <:#284,9360><:f240,BArial,255,0,0>    NMonth="06/01/"
  1506.  
  1507. <:#284,9360>    LastDay=30
  1508.  
  1509. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1510.  
  1511. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1512.  
  1513. <:#284,9360><:f240,BArial,255,0,0>ELSEIF LMonth= "july"
  1514.  
  1515. <:#284,9360><:f240,BArial,255,0,0>    NMonth="07/01/"
  1516.  
  1517. <:#284,9360>    LastDay=31
  1518.  
  1519. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1520.  
  1521. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1522.  
  1523. <:#284,9360><:f240,BArial,255,0,0>ELSEIF LMonth= "august"  
  1524.  
  1525. <:#284,9360><:f240,BArial,255,0,0>    NMonth="08/01/"
  1526.  
  1527. <:#284,9360>    LastDay=31
  1528.  
  1529. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1530.  
  1531. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1532.  
  1533. <:#284,9360><:f240,BArial,255,0,0>ELSEIF LMonth= "september"  
  1534.  
  1535. <:#284,9360><:f240,BArial,255,0,0>    NMonth="09/01/"
  1536.  
  1537. <:#284,9360>    LastDay=30
  1538.  
  1539. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1540.  
  1541. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1542.  
  1543. <:#284,9360><:f240,BArial,255,0,0>ELSEIF LMonth= "october"  
  1544.  
  1545. <:#284,9360><:f240,BArial,255,0,0>    NMonth="10/01/"
  1546.  
  1547. <:#284,9360>    LastDay=31
  1548.  
  1549. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1550.  
  1551. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1552.  
  1553. <:#284,9360><:f240,BArial,255,0,0>ELSEIF LMonth= "november"  
  1554.  
  1555. <:#284,9360><:f240,BArial,255,0,0>    NMonth="11/01/"
  1556.  
  1557. <:#284,9360>    LastDay=30
  1558.  
  1559. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1560.  
  1561. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1562.  
  1563. <:#284,9360><:f240,BArial,255,0,0>ELSEIF LMonth= "december"  
  1564.  
  1565. <:#284,9360><:f240,BArial,255,0,0>    NMonth="12/01/"
  1566.  
  1567. <:#284,9360>    LastDay=31
  1568.  
  1569. <:#284,9360>    FirstDayWeek=BuildDate(Month1,Year1,NMonth)
  1570.  
  1571. <:#284,9360>    FillCalendar(FirstDayWeek,LastDay)
  1572.  
  1573. @Remark@<:#284,9360>'Check for error in Month entry
  1574.  
  1575. <:#284,9360>ELSE 
  1576.  
  1577. <:#284,9360><:f240,BArial,255,0,0>    Message ("This is not a valid month.  Please try again.")
  1578.  
  1579. <:#284,9360>    FillEdit(9500,Month1)
  1580.  
  1581. <:#284,9360>    FillEdit(9501,Year1)
  1582.  
  1583. <:#284,9360>    GOTO TryAgain
  1584.  
  1585. <:#284,9360>ENDIF;
  1586.  
  1587. <:#284,9360>*year = year1;
  1588.  
  1589. <:#284,9360>*month = month1
  1590.  
  1591. <:#284,9360>return 1
  1592.  
  1593. <:#284,9360>END FUNCTION
  1594.  
  1595. <:#284,9360>
  1596.  
  1597. <:#284,9360>Function BuildDate(Month1,Year1,NMonth)
  1598.  
  1599. @Remark@<:#284,9360>ignorekeyboard(1)
  1600.  
  1601. <:#284,9360>DEFSTR CDate
  1602.  
  1603. <:#284,9360>DEFSTR NDate
  1604.  
  1605. <:#284,9360>DEFSTR NDays
  1606.  
  1607. <:#284,9360>DEFSTR WDate
  1608.  
  1609. <:#284,9360>DEFSTR DateRef
  1610.  
  1611. <:#284,9360>DEFSTR TYear
  1612.  
  1613. @Remark@<:#284,9360>'Extract last two digits of date for processing.
  1614.  
  1615. <:#284,9360>TYear=Mid$(Year1,3,2)
  1616.  
  1617. <:#284,9360>CDate=StrCat$(NMonth,TYear) 
  1618.  
  1619. <:#284,9360><:f240,BArial,255,0,0>DateRef="01/01/90"
  1620.  
  1621. <:#284,9360>NDays=DateDiff(CDate,DateRef)
  1622.  
  1623. <:#284,9360>NDate=NDays*86400+631224000
  1624.  
  1625. <:#284,9360>WDate=FormatDate$(NDate,"f")
  1626.  
  1627. <:#284,9360>BuildDate=StrField$(WDate,1," ")
  1628.  
  1629. <:#284,9360>Type("<[>CtrlHome]{Year1}<[>Tab]{Month1}<[>Tab]{Year1}")
  1630.  
  1631. <:#284,9360>END FUNCTION
  1632.  
  1633. <:#284,9360>
  1634.  
  1635. <:#284,9360>FUNCTION FillCalendar(FirstDayWeek,LastDay)
  1636.  
  1637. <:#284,9360>ignorekeyboard(1)
  1638.  
  1639. <:#284,9360>'answermsgbox(yes)
  1640.  
  1641. <:#284,9360>'SaveAs("x.sam", 1, "", "")
  1642.  
  1643. <:#284,9360>DEFSTR DayNum
  1644.  
  1645. <:#284,9360>DEFSTR Column
  1646.  
  1647. <:#284,9360>DEFSTR Row
  1648.  
  1649. <:#284,9360>DEFSTR Row2
  1650.  
  1651. <:#284,9360>DEFSTR Row3
  1652.  
  1653. <:#284,9360>DEFSTR R1
  1654.  
  1655. <:#284,9360>DEFSTR R2
  1656.  
  1657. <:#284,9360>DEFSTR R3
  1658.  
  1659. <:#284,9360>DEFSTR R4
  1660.  
  1661. <:#284,9360>Type( "<[>CTRLHome]<[>Down]<[>Down]<[>Right]" )
  1662.  
  1663. <:#284,9360>DayNum=1
  1664.  
  1665. <:#284,9360>IF FirstDayWeek=<:f240,BArial,255,0,0>"Sunday"
  1666.  
  1667. <:#284,9360>    FOR R1=1 TO 6
  1668.  
  1669. <:#284,9360>        Type("{DayNum}<[>Right]<[>Right]")
  1670.  
  1671. <:#284,9360>        DayNum=DayNum + 1
  1672.  
  1673. <:#284,9360>    NEXT
  1674.  
  1675. <:#284,9360>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Monday"
  1676.  
  1677. <:#284,9360>    Type("<[>Right]<[>Right]")
  1678.  
  1679. <:#284,9360>    FOR R1=1 TO 5
  1680.  
  1681. <:#284,9360>        Type("{DayNum}<[>Right]<[>Right]")
  1682.  
  1683. <:#284,9360>        DayNum=DayNum + 1
  1684.  
  1685. <:#284,9360>    NEXT
  1686.  
  1687. <:#284,9360>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Tuesday"
  1688.  
  1689. <:#284,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]")
  1690.  
  1691. <:#284,9360>    FOR R2=1 TO 4
  1692.  
  1693. <:#284,9360>        Type("{DayNum}<[>Right]<[>Right]")
  1694.  
  1695. <:#284,9360>        DayNum=DayNum + 1
  1696.  
  1697. <:#284,9360>    NEXT
  1698.  
  1699. <:#284,9360>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Wednesday"
  1700.  
  1701. <:#284,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  1702.  
  1703. <:#284,9360>    FOR R3=1 TO 3
  1704.  
  1705. <:#284,9360>        Type("{DayNum}<[>Right]<[>Right]")
  1706.  
  1707. <:#284,9360>        DayNum=DayNum + 1
  1708.  
  1709. <:#284,9360>    NEXT
  1710.  
  1711. <:#284,9360>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Thursday"
  1712.  
  1713. <:#284,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  1714.  
  1715. <:#284,9360>    FOR R4=1 TO 2
  1716.  
  1717. <:#284,9360>        Type("{DayNum}<[>Right]<[>Right]")
  1718.  
  1719. <:#284,9360>        DayNum=DayNum + 1
  1720.  
  1721. <:#284,9360>    NEXT
  1722.  
  1723. <:#284,9360>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Friday"
  1724.  
  1725. <:#284,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  1726.  
  1727. <:#284,9360>    Type("{DayNum}<[>Right]<[>Right]")
  1728.  
  1729. <:#284,9360>    DayNum=DayNum + 1
  1730.  
  1731. <:#284,9360>ELSEIF FirstDayWeek=<:f240,BArial,255,0,0>"Saturday"
  1732.  
  1733. <:#852,9360>    Type("<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]<[>Right]")
  1734.  
  1735. <:#284,9360>ENDIF
  1736.  
  1737. <:#284,9360>Type("{DayNum}<[>Right]<[>Down]<[>Right]")
  1738.  
  1739. <:#284,9360>DayNum=DayNum + 1
  1740.  
  1741. <:#284,9360>FOR Column=2 <++>to<-+> 6
  1742.  
  1743. <:#284,9360>    FOR Row= 1 <++>to<-+> 6
  1744.  
  1745. <:#284,9360>        Type("{DayNum}<[>Right]<[>Right]")
  1746.  
  1747. <:#284,9360>        DayNum=DayNum + 1
  1748.  
  1749. <:#284,9360>        IF DayNum <;> LastDay
  1750.  
  1751. <:#284,9360>            EXIT FUNCTION
  1752.  
  1753. <:#284,9360>        ENDIF
  1754.  
  1755. <:#284,9360>    NEXT 
  1756.  
  1757. <:#284,9360>    IF Column=7 AND DayNum<<LastDay
  1758.  
  1759. <:#284,9360>        Type("{DayNum}")
  1760.  
  1761. <:#284,9360>        DayNum=DayNum + 1
  1762.  
  1763. <:#284,9360>        Type("<[>Right]")
  1764.  
  1765. <:#284,9360>'        AdjustTable()
  1766.  
  1767. <:#284,9360>        FOR Row2=1 TO 7
  1768.  
  1769. <:#284,9360>'            ConnectCells()
  1770.  
  1771. <:#284,9360>goto debug
  1772.  
  1773. <:#284,9360>            FOR Row3=1 TO 2
  1774.  
  1775. <:#284,9360>                TurnOn=TopSide
  1776.  
  1777. <:#284,9360>                TurnOff=0
  1778.  
  1779. <:#284,9360>                StaySame=CellShade + Outline
  1780.  
  1781. <:#568,9360>                TableLines(TurnOn, TurnOff, StaySame, Hairline, CellShade)
  1782.  
  1783. <:#284,9360>                Type("<[>CTRLRight]")
  1784.  
  1785. <:#284,9360>            NEXT
  1786.  
  1787. <:#284,9360>            Type("<[>CTRLLeft]")
  1788.  
  1789. <:#284,9360>debug:
  1790.  
  1791. <:#284,9360>
  1792.  
  1793. <:#284,9360>            Type("{DayNum}")
  1794.  
  1795. <:#284,9360>            DayNum=DayNum + 1
  1796.  
  1797. <:#284,9360>            Type("<[>CTRLRight]")
  1798.  
  1799. <:#284,9360>            IF DayNum <;> LastDay
  1800.  
  1801. <:#284,9360>                BREAK
  1802.  
  1803. <:#284,9360>            ENDIF
  1804.  
  1805. <:#284,9360>        NEXT
  1806.  
  1807. <:#284,9360>    ELSEIF DayNum = LastDay
  1808.  
  1809. <:#284,9360>        Type("{DayNum}<[>CtrlHome]")
  1810.  
  1811. <:#284,9360>        BREAK
  1812.  
  1813. <:#284,9360>    ELSE
  1814.  
  1815. <:#284,9360>        Type("{DayNum}<[>Right]<[>Down]<[>Right]")
  1816.  
  1817. <:#284,9360>    ENDIF
  1818.  
  1819. <:#284,9360>    DayNum=DayNum + 1
  1820.  
  1821. <:#284,9360>NEXT
  1822.  
  1823. <:#284,9360>END FUNCTION
  1824.  
  1825. <:#284,9360>
  1826.  
  1827. <:#284,9360>FUNCTION CheckLeap(Month1,Year1,NMonth)
  1828.  
  1829. @Remark@<:#284,9360>ignorekeyboard(1)
  1830.  
  1831. <:#284,9360>DEFSTR CDate
  1832.  
  1833. <:#284,9360>DEFSTR NDate
  1834.  
  1835. <:#284,9360>DEFSTR NDays
  1836.  
  1837. <:#284,9360>DEFSTR WDate
  1838.  
  1839. <:#284,9360>DEFSTR DateRef
  1840.  
  1841. <:#284,9360>DEFSTR TYear
  1842.  
  1843. <:#284,9360>DEFSTR LNDate
  1844.  
  1845. <:#284,9360>DEFSTR LeapDate
  1846.  
  1847. @Remark@<:#284,9360>'Extract last two digits of date for processing.
  1848.  
  1849. <:#284,9360>TYear=Mid$(Year1,3,2)
  1850.  
  1851. <:#284,9360>CDate=StrCat$(NMonth,TYear) 
  1852.  
  1853. <:#284,9360><:f240,BArial,255,0,0>DateRef="01/01/90"
  1854.  
  1855. <:#284,9360>NDays=DateDiff(CDate,DateRef)
  1856.  
  1857. <:#284,9360>NDate=NDays*86400+631224000
  1858.  
  1859. <:#284,9360>LNDate=NDate +  2419200
  1860.  
  1861. <:#284,9360><:f240,BArial,255,0,0>LeapDate=FormatDate$(LNDate,"a")<:f>
  1862.  
  1863. <:#284,9360>LeapNum=StrField$(LeapDate,1,"/")
  1864.  
  1865. <:#284,9360>IF LeapNum=3
  1866.  
  1867. <:#284,9360>    CheckLeap=28
  1868.  
  1869. <:#284,9360>ELSE 
  1870.  
  1871. <:#284,9360>    CheckLeap=29
  1872.  
  1873. <:#284,9360>ENDIF
  1874.  
  1875. <:#284,9360>END FUNCTION
  1876.  
  1877. <:#284,9360>
  1878.  
  1879. <:#284,9360>
  1880.  
  1881. <:#284,9360>function initdlg(hdlg, id, value)
  1882.  
  1883. <:#284,9360>for i = 1002 to 1008
  1884.  
  1885. <:#284,9360>    setfont(hdlg, i)
  1886.  
  1887. <:#284,9360>next
  1888.  
  1889. <:#284,9360>end function
  1890.  
  1891. <:#284,9360>
  1892.  
  1893. @Remark@<:#284,9360>'Dialog Box Section
  1894.  
  1895. <:#284,9360>
  1896.  
  1897. <:#284,9360>
  1898.  
  1899. <:#284,9360>DIALOG    Heymon
  1900.  
  1901. <:#568,9360><:f240,BArial,255,0,0>-2134376448    14    73    41    192    127    ""    "amidialog<:f><:f240,BArial,255,0,0>"    "Monthly Organizer Calendar"
  1902.  
  1903. <:#284,9360><:f240,BArial,255,0,0>FONT    8    "Helv"
  1904.  
  1905. <:#568,9360><:f240,BArial,255,0,0>5    5    134    18    1002    1342177280    "static"    "This feature creates a monthly calendar using appointment entries in Lotus Organizer."    0 
  1906.  
  1907. <:#284,9360><:f240,BArial,255,0,0>5    72    27    10    1000    1342177280    "static"    "&Month :"    0 
  1908.  
  1909. <:#284,9360><:f240,BArial,255,0,0>5    88    23    10    1001    1342177280    "static"    "&Year :"    0 
  1910.  
  1911. <:#284,9360><:f240,BArial,255,0,0>36<:f><:f240,BArial,255,0,0>    71    52    40    9500    1344339979    "combobox"    ""    0 
  1912.  
  1913. <:#284,9360><:f240,BArial,255,0,0>36    86    52    40    9501    1344339979    "combobox"    ""    0 
  1914.  
  1915. <:#568,9360><:f240,BArial,255,0,0>5    108    101    12    20    1342242819    "button"    "&Include Anniversary entries"    0 
  1916.  
  1917. <:#284,9360><:f240,BArial,255,0,0>147    5    40    14    1    1342242817    "button"    "OK"    0 
  1918.  
  1919. <:#284,9360><:f240,BArial,255,0,0>147    21    40    14    2    1342242816    "button"    "Cancel"    0 
  1920.  
  1921. <:#284,9360><:f240,BArial,255,0,0>5    24    6    10    1003    1342177280    "static"    "1."    0 
  1922.  
  1923. <:#568,9360><:f240,BArial,255,0,0>15    24    105    10    1004    1342177280    "static"    "Load the Organizer."    0 
  1924.  
  1925. <:#284,9360><:f240,BArial,255,0,0>5    34    6    10    1005    1342177280    "static"    "2."    0 
  1926.  
  1927. <:#568,9360><:f240,BArial,255,0,0>15    34    124    16    1006    1342177280    "static"    "Open the Organizer file for which you want to create a calendar."    0 
  1928.  
  1929. <:#284,9360><:f240,BArial,255,0,0>5    50    6    10    1007    1342177280    "static"    "3."    0 
  1930.  
  1931. <:#568,9360><:f240,BArial,255,0,0>15    51    163    16    1008    1342177280    "static"    "Choose this 'Monthly Organizer Calendar' feature and choose a month and a year for the calendar."    0 
  1932.  
  1933. <:#284,9360>END DIALOG
  1934.  
  1935. <:#284,9360>
  1936.  
  1937. @Function@<:#293,9360>function createdlgfont()
  1938.  
  1939. <:#284,9360>rmac = getrunningmacrofile$()
  1940.  
  1941. <:#284,9360>hfont = CreateFont(13, 0, 0, 0, 400, 0, 0, 0, 0, 0, 0, 0, 32, <:f240,BArial,255,0,0>"Helv"<:f>)
  1942.  
  1943. <:#284,9360>if hfont <;> 1
  1944.  
  1945. <:#284,9360>    AllocGlobalVar("{rmac}hfont", 1)
  1946.  
  1947. <:#284,9360>    SetGlobalVar("{rmac}hfont", hFont)
  1948.  
  1949. <:#284,9360>    Return hfont
  1950.  
  1951. <:#284,9360>endif
  1952.  
  1953. <:#284,9360>End Function
  1954.  
  1955. <:#284,9360>
  1956.  
  1957. <:#284,9360>
  1958.  
  1959. @Function@<:#293,9360>function deletefont()
  1960.  
  1961. <:#284,9360>rmac = getrunningmacrofile$()
  1962.  
  1963. <:#284,9360>AllocGlobalVar("{rmac}hfont", 1)
  1964.  
  1965. <:#284,9360>hfont = getglobalvar$("{rmac}hfont")
  1966.  
  1967. <:#284,9360>if hfont <;> 1
  1968.  
  1969. <:#284,9360>    deleteobject(hfont)
  1970.  
  1971. <:#284,9360>    freeglobalvar("{rmac}hfont")
  1972.  
  1973. <:#284,9360>endif
  1974.  
  1975. <:#284,9360>end function
  1976.  
  1977. <:#284,9360>
  1978.  
  1979. <:#284,9360>
  1980.  
  1981. @Function@<:#293,9360>function setfont(hdlg, id)
  1982.  
  1983. <:#284,9360>rmac = getrunningmacrofile$()
  1984.  
  1985. <:#284,9360>AllocGlobalVar("{rmac}hfont", 1)
  1986.  
  1987. <:#284,9360>hfont = getglobalvar$("{rmac}hfont")
  1988.  
  1989. <:#284,9360>if hfont << 1
  1990.  
  1991. <:#284,9360>    if createdlgfont() << 1
  1992.  
  1993. <:#284,9360>        return 0
  1994.  
  1995. <:#284,9360>    endif
  1996.  
  1997. <:#284,9360>endif
  1998.  
  1999. <:#284,9360>hfont = getglobalvar$("{rmac}hfont")
  2000.  
  2001. <:#284,9360>SendMessage(GetDlgITem(Hdlg, id), WM_SETFONT, hfont, 0)
  2002.  
  2003. <:#284,9360>end function
  2004.  
  2005. <:#284,9360>
  2006.  
  2007. @Function@function delfile(filename)
  2008.  
  2009. fh = fopen(filename, "r")
  2010.  
  2011. if fh <<<;> 0
  2012.  
  2013.     fseek(fh, 0, 2)
  2014.  
  2015.     stat = ftell(fh)
  2016.  
  2017.     fclose(fh)
  2018.  
  2019.     if stat <<<;> 0
  2020.  
  2021.         dosdelfile(filename)
  2022.  
  2023.     endif
  2024.  
  2025. endif
  2026.  
  2027. end function
  2028.  
  2029.  
  2030.  
  2031. @Function@<:I0,0,0,0><:S+-1>Function FindAndReplace(String, Findwhat, Replacewith)
  2032.  
  2033. DefStr Location;
  2034.  
  2035. OffSet = 0
  2036.  
  2037. While 0 != Assign(&Location, Instr(OffSet, String, FindWhat))
  2038.  
  2039.     BeforeLocation = Left$(String, Location - 1)
  2040.  
  2041.     AfterLocation = Right$(String, Len(String) - Location);
  2042.  
  2043.     *String = StrCat$(BeforeLocation, ReplaceWith, AfterLocation)
  2044.  
  2045. Wend
  2046.  
  2047. <+@><:I0,0,0,0><:S+-1>End Function
  2048.  
  2049. >
  2050.  
  2051. [Embedded]
  2052. 00043481
  2053. >
  2054. [macsum] 21
  2055. orgcal 0 0 25 40
  2056. findday 2746 1 2 175
  2057. findday_ann 2973 1 2 192
  2058. startcal 3204 2 5 209
  2059. getorgdata 3395 2 12 224
  2060. readorganniversary 6194 3 15 343
  2061. readorgdates 8032 5 17 431
  2062. helpme 10059 0 1 526
  2063. datenum2datestr 10212 1 1 531
  2064. datestr2datenum 10985 1 1 561
  2065. AutoCal 11758 2 14 592
  2066. BuildDate 15522 3 7 769
  2067. FillCalendar 15780 2 13 788
  2068. CheckLeap 18088 3 10 884
  2069. initdlg 18412 3 2 911
  2070. Heymon 18564 0 -1 920
  2071. createdlgfont 19599 0 3 939
  2072. deletefont 19815 0 3 950
  2073. setfont 19987 2 3 961
  2074. delfile 20257 1 3 974
  2075. FindAndReplace 20430 3 5 987
  2076. [macse]
  2077. 14 orgcal
  2078. 0 32 1
  2079. 7 "_CALORG.STY"
  2080. 8 1
  2081. 0 1050
  2082. 13
  2083. 5 0
  2084. 18 3
  2085. 11 00000284
  2086. 0 279 3
  2087. 13
  2088. 6 1
  2089. 18 1
  2090. 0 279 15
  2091. 13
  2092. 5 1
  2093. 18 0
  2094. 1 2
  2095. 11 00000271
  2096. 2 101 1 "{1}" 1 1024
  2097. 13
  2098. 5 1
  2099. 18 1
  2100. 11 00000259
  2101. 0 3 "Unable to find the style sheet {1}." "Ami Pro"
  2102. 5 0
  2103. 15
  2104. 9
  2105. 5 0
  2106. 15
  2107. 9
  2108. 10 00000411
  2109. 2 101 1 "{1}" 1 1024
  2110. 13
  2111. 5 1
  2112. 18 1
  2113. 11 00000399
  2114. 0 3 "Unable to find the style sheet {1}." "Ami Pro"
  2115. 5 0
  2116. 15
  2117. 9
  2118. 5 0
  2119. 15
  2120. 9
  2121. 16 autocal &2 &3
  2122. 13
  2123. 5 1
  2124. 18 1
  2125. 11 00000469
  2126. 5 0
  2127. 15
  2128. 9
  2129. 2 140 1 "" "" "" "" "" "" "" 1
  2130. 0 1301 &4 &5 &6 &7
  2131. 6 4
  2132. 5 10
  2133. 18 0
  2134. 11 00000593
  2135. 0 6 "[40][40][4136]"
  2136. 0 291 6
  2137. 2 628 1 0
  2138. 0 286 "OrgCal" "Calendar" "amipro2.ini"
  2139. 13
  2140. 8 8
  2141. 6 8
  2142. 7 ""
  2143. 18 0
  2144. 11 00000744
  2145. 7 "Calendar"
  2146. 8 8
  2147. 0 287 "OrgCal" "Calendar" "Calendar" "amipro2.ini"
  2148. 0 286 "OrgCal" "Anniversary" "amipro2.ini"
  2149. 13
  2150. 8 9
  2151. 6 9
  2152. 7 ""
  2153. 18 0
  2154. 11 00000907
  2155. 7 "Anniversary"
  2156. 8 9
  2157. 0 287 "OrgCal" "Anniversary" "Anniversary" "amipro2.ini"
  2158. 0 1288
  2159. 13
  2160. 8 10
  2161. 0 6 "[16420][40][40]"
  2162. 0 789 "Getting Organizer data..."
  2163. 16 getorgdata "{8}" "{9}"
  2164. 13
  2165. 5 1
  2166. 18 1
  2167. 11 00001149
  2168. 0 789 ""
  2169. 0 284 "user,FindWindow,HCC" "TZ_PORG" 0
  2170. 13
  2171. 8 11
  2172. 0 284 "user,ShowWindow,HHH" "{11}" 1
  2173. 5 0
  2174. 15
  2175. 9
  2176. 0 789 ""
  2177. 0 274 001
  2178. 5 1
  2179. 21 12 [X]
  2180. 5 1
  2181. 21 13 [X]
  2182. 5 1
  2183. 21 14 [X]
  2184. 5 1
  2185. 21 15 [X]
  2186. 5 1
  2187. 21 16 [X]
  2188. 16 datestr2datenum "{3}"
  2189. 13
  2190. 8 17
  2191. 0 789 "Reading Organizer data..."
  2192. 16 readorgdates &12 &14 &16 "{2}" "{17}"
  2193. 13
  2194. 8 18
  2195. 0 789 ""
  2196. 6 18
  2197. 5 0
  2198. 18 0
  2199. 11 00001426
  2200. 10 00001878
  2201. 5 1
  2202. 8 19
  2203. 16 findday "{19}"
  2204. 5 1
  2205. 8 20
  2206. 6 18
  2207. 6 20
  2208. 18 2
  2209. 12 00001546
  2210. 10 00001878
  2211. 5 1
  2212. 6 20
  2213. 3 0
  2214. 8 20
  2215. 10 00001467
  2216. 6 20
  2217. 22 12
  2218. 8 21
  2219. 6 21
  2220. 6 19
  2221. 18 1
  2222. 11 00001682
  2223. 0 6 "[9][38]"
  2224. 16 findday "{21}"
  2225. 13
  2226. 8 19
  2227. 6 19
  2228. 5 0
  2229. 18 0
  2230. 11 00001682
  2231. 5 0
  2232. 15
  2233. 9
  2234. 6 20
  2235. 22 16
  2236. 8 22
  2237. 6 20
  2238. 22 14
  2239. 8 23
  2240. 2 323 1 "Entry"
  2241. 2 254 1
  2242. 0 6 "{22}"
  2243. 2 254 1
  2244. 0 808 0 "{23}" "    "
  2245. 13
  2246. 5 0
  2247. 18 3
  2248. 11 00001848
  2249. 16 findandreplace &23 "    " "   "
  2250. 0 6 " {23}[13]"
  2251. 10 00001511
  2252. 0 286 "OrgCal" "DoAnniversary" "amipro2.ini"
  2253. 13
  2254. 5 1
  2255. 18 1
  2256. 11 00001965
  2257. 10 00002529
  2258. 0 6 "[16420][40][40]"
  2259. 0 789 "Reading Organizer Anniversary data..."
  2260. 16 readorganniversary &13 &15 "{17}"
  2261. 13
  2262. 8 18
  2263. 0 789 ""
  2264. 6 18
  2265. 5 0
  2266. 18 0
  2267. 11 00002136
  2268. 10 00002529
  2269. 5 1
  2270. 8 19
  2271. 16 findday_ann "{19}"
  2272. 5 1
  2273. 8 20
  2274. 6 18
  2275. 6 20
  2276. 18 2
  2277. 12 00002260
  2278. 10 00002529
  2279. 5 1
  2280. 6 20
  2281. 3 0
  2282. 8 20
  2283. 10 00002181
  2284. 6 20
  2285. 22 13
  2286. 8 21
  2287. 6 21
  2288. 6 19
  2289. 18 1
  2290. 11 00002400
  2291. 0 6 "[9][38]"
  2292. 16 findday_ann "{21}"
  2293. 13
  2294. 8 19
  2295. 6 19
  2296. 5 0
  2297. 18 0
  2298. 11 00002400
  2299. 5 0
  2300. 15
  2301. 9
  2302. 6 20
  2303. 22 15
  2304. 8 23
  2305. 0 808 0 "{23}" "    "
  2306. 13
  2307. 5 0
  2308. 18 3
  2309. 11 00002500
  2310. 16 findandreplace &23 "    " "   "
  2311. 0 6 "{23}[13]"
  2312. 10 00002225
  2313. 0 286 "OrgCal" "AnniversaryFile" "amipro2.ini"
  2314. 13
  2315. 16 delfile [X]
  2316. 0 286 "OrgCal" "CalendarFile" "amipro2.ini"
  2317. 13
  2318. 16 delfile [X]
  2319. 0 274 001
  2320. 0 3 "Here is your calendar from Lotus Organizer." "Ami Pro"
  2321. 6 0
  2322. 15
  2323. 9
  2324. 14 findday
  2325. 0 32 1
  2326. 5 1
  2327. 11 00000215
  2328. 0 23
  2329. 13
  2330. 8 2
  2331. 6 2
  2332. 6 0
  2333. 18 0
  2334. 11 00000106
  2335. 0 6 "[40]"
  2336. 6 2
  2337. 15
  2338. 9
  2339. 0 6 "[9]"
  2340. 0 29
  2341. 13
  2342. 5 129
  2343. 18 1
  2344. 11 00000202
  2345. 0 3 "Unable to continue." "Ami Pro"
  2346. 5 0
  2347. 15
  2348. 9
  2349. 10 00000020
  2350. 6 1
  2351. 15
  2352. 9
  2353. 14 findday_ann
  2354. 0 32 1
  2355. 5 1
  2356. 11 00000219
  2357. 0 23
  2358. 13
  2359. 8 2
  2360. 6 2
  2361. 6 0
  2362. 18 0
  2363. 11 00000110
  2364. 0 6 "[37]"
  2365. 6 2
  2366. 15
  2367. 9
  2368. 0 6 "[9]"
  2369. 0 29
  2370. 13
  2371. 5 129
  2372. 18 1
  2373. 11 00000206
  2374. 0 3 "Unable to continue." "Ami Pro"
  2375. 5 0
  2376. 15
  2377. 9
  2378. 10 00000024
  2379. 6 1
  2380. 15
  2381. 9
  2382. 14 startcal
  2383. 0 32 1
  2384. 0 1301 &3 &4 &5 &6
  2385. 6 3
  2386. 5 0
  2387. 18 0
  2388. 11 00000082
  2389. 5 0
  2390. 15
  2391. 9
  2392. 0 6 "[16420]"
  2393. 0 23
  2394. 13
  2395. 28 0
  2396. 0 6 "[9]"
  2397. 0 23
  2398. 13
  2399. 28 1
  2400. 0 6 "[40][40][36][36][9]"
  2401. 5 1
  2402. 15
  2403. 9
  2404. 6 2
  2405. 15
  2406. 9
  2407. 14 getorgdata
  2408. 0 32 1
  2409. 20 00002699
  2410. 19 00002699
  2411. 5 80
  2412. 8 3
  2413. 0 284 "user,FindWindow,HCC" "TZ_PORG" 0
  2414. 13
  2415. 8 5
  2416. 0 284 "user,IsIconic,HH" "{5}"
  2417. 13
  2418. 11 00000185
  2419. 0 1036 "{5}" 274 61728 0
  2420. 0 284 "user,ShowWindow,HHH" "{5}" 0
  2421. 0 38 "Lotus Organizer"
  2422. 0 284 "user,EnableHardwareInput,AA" 0
  2423. 5 1010
  2424. 8 6
  2425. 5 0
  2426. 8 7
  2427. 0 284 "user,PostMessage,JHHHJ" "{5}" 273 "{6}" "{7}"
  2428. 0 274 001
  2429. 0 284 "user,GetActiveWindow,H"
  2430. 13
  2431. 8 8
  2432. 0 36 "[16420]"
  2433. 0 274 002
  2434. 5 1
  2435. 8 9
  2436. 5 20
  2437. 6 9
  2438. 18 2
  2439. 12 00000527
  2440. 10 00000717
  2441. 5 1
  2442. 6 9
  2443. 3 0
  2444. 8 9
  2445. 10 00000451
  2446. 0 284 "user,GetActiveWindow,H"
  2447. 13
  2448. 0 44 [X] 301
  2449. 13
  2450. 0 284 "user,SendMessage,HHHHC" [X] 13 "{3}" &4
  2451. 0 808 3 "{4}" "{0}"
  2452. 13
  2453. 5 1
  2454. 18 3
  2455. 11 00000691
  2456. 10 00000778
  2457. 0 36 "[40]"
  2458. 10 00000494
  2459. 0 789 ""
  2460. 0 284 "user,EnableHardwareInput,AA" 1
  2461. 5 0
  2462. 15
  2463. 9
  2464. 0 1288
  2465. 13
  2466. 8 10
  2467. 0 807 "{10}" 1
  2468. 13
  2469. 7 "\"
  2470. 18 1
  2471. 11 00000869
  2472. 0 16 "{10}" "\"
  2473. 13
  2474. 8 10
  2475. 0 772
  2476. 13
  2477. 0 807 [X] 7
  2478. 13
  2479. 8 11
  2480. 7 "{10}~{11}.tmp"
  2481. 8 12
  2482. 0 287 "OrgCal" "CalendarFile" "{12}" "amipro2.ini"
  2483. 0 36 "[8271][8276]u[8262]"
  2484. 0 274 001
  2485. 0 284 "user,GetActiveWindow,H"
  2486. 13
  2487. 0 42 [X] 307
  2488. 13
  2489. 5 1
  2490. 18 1
  2491. 11 00001107
  2492. 0 36 " "
  2493. 0 36 "[13]"
  2494. 0 36 "[8261]a[9]{12}[13][8269][13]"
  2495. 0 284 "user,GetActiveWindow,H"
  2496. 13
  2497. 8 8
  2498. 0 274 002
  2499. 5 1
  2500. 11 00001453
  2501. 0 284 "user,GetActiveWindow,H"
  2502. 13
  2503. 0 284 "user,GetWindowText,HHCH" [X] &13 50
  2504. 6 13
  2505. 7 "Lotus Organizer"
  2506. 18 0
  2507. 11 00001379
  2508. 0 36 "[27]"
  2509. 10 00001453
  2510. 0 274 010
  2511. 6 13
  2512. 7 "Status"
  2513. 18 1
  2514. 11 00001440
  2515. 10 00001453
  2516. 10 00001209
  2517. 0 286 "OrgCal" "DoAnniversary" "amipro2.ini"
  2518. 13
  2519. 5 1
  2520. 18 1
  2521. 11 00001540
  2522. 10 00002576
  2523. 0 772
  2524. 13
  2525. 0 807 [X] 7
  2526. 13
  2527. 8 11
  2528. 7 "{10}~{11}.tmp"
  2529. 8 12
  2530. 0 287 "OrgCal" "AnniversaryFile" "{12}" "amipro2.ini"
  2531. 0 284 "user,PostMessage,JHHHJ" "{5}" 273 "{6}" "{7}"
  2532. 0 274 001
  2533. 0 284 "user,GetActiveWindow,H"
  2534. 13
  2535. 8 8
  2536. 0 36 "[16420]"
  2537. 5 1
  2538. 8 9
  2539. 5 20
  2540. 6 9
  2541. 18 2
  2542. 12 00001862
  2543. 10 00002052
  2544. 5 1
  2545. 6 9
  2546. 3 0
  2547. 8 9
  2548. 10 00001786
  2549. 0 284 "user,GetActiveWindow,H"
  2550. 13
  2551. 0 44 [X] 301
  2552. 13
  2553. 0 284 "user,SendMessage,HHHHC" [X] 13 "{3}" &4
  2554. 0 808 3 "{4}" "{1}"
  2555. 13
  2556. 5 1
  2557. 18 3
  2558. 11 00002026
  2559. 10 00002103
  2560. 0 36 "[40]"
  2561. 10 00001829
  2562. 0 284 "user,EnableHardwareInput,AA" 1
  2563. 5 0
  2564. 15
  2565. 9
  2566. 0 36 "[8271][8276]u[8262]"
  2567. 0 274 001
  2568. 0 284 "user,GetActiveWindow,H"
  2569. 13
  2570. 0 42 [X] 307
  2571. 13
  2572. 5 1
  2573. 18 1
  2574. 11 00002230
  2575. 0 36 " "
  2576. 0 36 "[13]"
  2577. 0 36 "[8261]a[9]{12}[13][8269][13]"
  2578. 0 284 "user,GetActiveWindow,H"
  2579. 13
  2580. 8 8
  2581. 0 274 002
  2582. 5 1
  2583. 11 00002576
  2584. 0 284 "user,GetActiveWindow,H"
  2585. 13
  2586. 0 284 "user,GetWindowText,HHCH" [X] &13 50
  2587. 6 13
  2588. 7 "Lotus Organizer"
  2589. 18 0
  2590. 11 00002502
  2591. 0 36 "[27]"
  2592. 10 00002576
  2593. 0 274 010
  2594. 6 13
  2595. 7 "Status"
  2596. 18 1
  2597. 11 00002563
  2598. 10 00002576
  2599. 10 00002332
  2600. 0 1030 "Lotus Organizer"
  2601. 0 284 "user,ShowWindow,HHH" "{5}" 1
  2602. 0 38 ""
  2603. 0 284 "user,EnableHardwareInput,AA" 1
  2604. 5 1
  2605. 15
  2606. 9
  2607. 0 284 "user,ShowWindow,HHH" "{5}" 1
  2608. 0 284 "user,EnableHardwareInput,AA" 1
  2609. 5 0
  2610. 15
  2611. 9
  2612. 6 2
  2613. 15
  2614. 9
  2615. 14 readorganniversary
  2616. 0 32 1
  2617. 20 00001790
  2618. 19 00001790
  2619. 5 2
  2620. 21 4 [X]
  2621. 0 286 "OrgCal" "AnniversaryFile" "amipro2.ini"
  2622. 13
  2623. 8 5
  2624. 0 259 "{5}" "r"
  2625. 13
  2626. 8 6
  2627. 6 6
  2628. 5 0
  2629. 18 0
  2630. 11 00000196
  2631. 5 0
  2632. 15
  2633. 9
  2634. 0 257 "{6}"
  2635. 13
  2636. 5 -1
  2637. 18 0
  2638. 11 00000263
  2639. 0 260 "{6}"
  2640. 5 0
  2641. 15
  2642. 9
  2643. 0 260 "{6}"
  2644. 0 1290 "{5}" "*Comma:1" 0
  2645. 13
  2646. 8 7
  2647. 6 7
  2648. 5 0
  2649. 18 0
  2650. 11 00000353
  2651. 5 0
  2652. 15
  2653. 9
  2654. 0 1294 "{7}"
  2655. 13
  2656. 8 8
  2657. 6 8
  2658. 5 1
  2659. 18 5
  2660. 11 00000418
  2661. 10 00001790
  2662. 0 286 "intl" "sDate"
  2663. 13
  2664. 8 9
  2665. 6 9
  2666. 7 ""
  2667. 18 0
  2668. 11 00000491
  2669. 7 "/"
  2670. 8 9
  2671. 0 286 "intl" "sShortDate"
  2672. 13
  2673. 0 18 [X]
  2674. 13
  2675. 8 10
  2676. 6 10
  2677. 7 ""
  2678. 18 0
  2679. 11 00000591
  2680. 7 "M/D/YY"
  2681. 8 10
  2682. 5 1
  2683. 8 11
  2684. 5 3
  2685. 6 11
  2686. 18 2
  2687. 12 00000680
  2688. 10 00000786
  2689. 5 1
  2690. 6 11
  2691. 3 0
  2692. 8 11
  2693. 10 00000602
  2694. 0 20 "{10}" "{11}" "{9}"
  2695. 13
  2696. 8 12
  2697. 6 12
  2698. 7 "M"
  2699. 18 0
  2700. 11 00000773
  2701. 6 11
  2702. 8 12
  2703. 10 00000786
  2704. 10 00000645
  2705. 5 1
  2706. 8 11
  2707. 5 3
  2708. 6 11
  2709. 18 2
  2710. 12 00000875
  2711. 10 00000981
  2712. 5 1
  2713. 6 11
  2714. 3 0
  2715. 8 11
  2716. 10 00000797
  2717. 0 20 "{10}" "{11}" "{9}"
  2718. 13
  2719. 8 13
  2720. 6 13
  2721. 7 "D"
  2722. 18 0
  2723. 11 00000968
  2724. 6 11
  2725. 8 13
  2726. 10 00000981
  2727. 10 00000840
  2728. 5 1
  2729. 8 11
  2730. 5 3
  2731. 6 11
  2732. 18 2
  2733. 12 00001070
  2734. 10 00001177
  2735. 5 1
  2736. 6 11
  2737. 3 0
  2738. 8 11
  2739. 10 00000992
  2740. 0 20 "{10}" "{11}" "{9}"
  2741. 13
  2742. 8 14
  2743. 6 14
  2744. 7 "YY"
  2745. 18 0
  2746. 11 00001164
  2747. 6 11
  2748. 8 14
  2749. 10 00001177
  2750. 10 00001035
  2751. 5 1
  2752. 8 11
  2753. 5 2
  2754. 6 11
  2755. 18 2
  2756. 12 00001266
  2757. 10 00001328
  2758. 5 1
  2759. 6 11
  2760. 3 0
  2761. 8 11
  2762. 10 00001188
  2763. 0 1295 "{7}" "{11}"
  2764. 13
  2765. 8 15
  2766. 6 11
  2767. 6 15
  2768. 23 4
  2769. 10 00001231
  2770. 5 1
  2771. 8 11
  2772. 0 1293 "{7}"
  2773. 13
  2774. 5 0
  2775. 18 0
  2776. 11 00001743
  2777. 5 1
  2778. 22 4
  2779. 0 1292 "{7}" [X]
  2780. 13
  2781. 8 15
  2782. 0 20 "{15}" "{12}" "{9}"
  2783. 13
  2784. 8 16
  2785. 6 16
  2786. 6 2
  2787. 18 1
  2788. 11 00001499
  2789. 10 00001730
  2790. 0 20 "{15}" "{13}" "{9}"
  2791. 13
  2792. 8 17
  2793. 0 806 "{17}" 1
  2794. 13
  2795. 5 0
  2796. 18 0
  2797. 11 00001605
  2798. 0 807 "{17}" 1
  2799. 13
  2800. 8 17
  2801. 0 1041 &0 "{11}" "{17}"
  2802. 5 2
  2803. 22 4
  2804. 0 1292 "{7}" [X]
  2805. 13
  2806. 8 15
  2807. 0 1041 &1 "{11}" "{15}"
  2808. 0 789 "{15}"
  2809. 6 11
  2810. 5 1
  2811. 3 0
  2812. 8 11
  2813. 10 00001339
  2814. 0 1291 "{7}"
  2815. 0 789 ""
  2816. 6 11
  2817. 5 1
  2818. 3 1
  2819. 15
  2820. 9
  2821. 0 1291 "{7}"
  2822. 0 789 ""
  2823. 5 0
  2824. 15
  2825. 9
  2826. 6 3
  2827. 15
  2828. 9
  2829. 14 readorgdates
  2830. 0 32 1
  2831. 20 00001978
  2832. 19 00001978
  2833. 5 4
  2834. 8 6
  2835. 0 807 "{3}" 2
  2836. 13
  2837. 8 3
  2838. 6 6
  2839. 21 7 [X]
  2840. 0 286 "OrgCal" "CalendarFile" "amipro2.ini"
  2841. 13
  2842. 8 8
  2843. 0 259 "{8}" "r"
  2844. 13
  2845. 8 9
  2846. 6 9
  2847. 5 0
  2848. 18 0
  2849. 11 00000221
  2850. 5 0
  2851. 15
  2852. 9
  2853. 0 257 "{9}"
  2854. 13
  2855. 5 -1
  2856. 18 0
  2857. 11 00000288
  2858. 0 260 "{9}"
  2859. 5 0
  2860. 15
  2861. 9
  2862. 0 260 "{9}"
  2863. 0 1290 "{8}" "*Comma:1" 0
  2864. 13
  2865. 8 10
  2866. 6 10
  2867. 5 0
  2868. 18 0
  2869. 11 00000380
  2870. 5 0
  2871. 15
  2872. 9
  2873. 0 1294 "{10}"
  2874. 13
  2875. 8 11
  2876. 6 11
  2877. 5 1
  2878. 18 5
  2879. 11 00000448
  2880. 10 00001978
  2881. 0 286 "intl" "sDate"
  2882. 13
  2883. 8 12
  2884. 6 12
  2885. 7 ""
  2886. 18 0
  2887. 11 00000524
  2888. 7 "/"
  2889. 8 12
  2890. 0 286 "intl" "sShortDate"
  2891. 13
  2892. 0 18 [X]
  2893. 13
  2894. 8 13
  2895. 6 13
  2896. 7 ""
  2897. 18 0
  2898. 11 00000624
  2899. 7 "M/D/YY"
  2900. 8 13
  2901. 5 1
  2902. 8 14
  2903. 5 3
  2904. 6 14
  2905. 18 2
  2906. 12 00000713
  2907. 10 00000820
  2908. 5 1
  2909. 6 14
  2910. 3 0
  2911. 8 14
  2912. 10 00000635
  2913. 0 20 "{13}" "{14}" "{12}"
  2914. 13
  2915. 8 15
  2916. 6 15
  2917. 7 "M"
  2918. 18 0
  2919. 11 00000807
  2920. 6 14
  2921. 8 15
  2922. 10 00000820
  2923. 10 00000678
  2924. 5 1
  2925. 8 14
  2926. 5 3
  2927. 6 14
  2928. 18 2
  2929. 12 00000909
  2930. 10 00001016
  2931. 5 1
  2932. 6 14
  2933. 3 0
  2934. 8 14
  2935. 10 00000831
  2936. 0 20 "{13}" "{14}" "{12}"
  2937. 13
  2938. 8 16
  2939. 6 16
  2940. 7 "D"
  2941. 18 0
  2942. 11 00001003
  2943. 6 14
  2944. 8 16
  2945. 10 00001016
  2946. 10 00000874
  2947. 5 1
  2948. 8 14
  2949. 5 3
  2950. 6 14
  2951. 18 2
  2952. 12 00001105
  2953. 10 00001213
  2954. 5 1
  2955. 6 14
  2956. 3 0
  2957. 8 14
  2958. 10 00001027
  2959. 0 20 "{13}" "{14}" "{12}"
  2960. 13
  2961. 8 17
  2962. 6 17
  2963. 7 "YY"
  2964. 18 0
  2965. 11 00001200
  2966. 6 14
  2967. 8 17
  2968. 10 00001213
  2969. 10 00001070
  2970. 5 1
  2971. 8 14
  2972. 6 6
  2973. 6 14
  2974. 18 2
  2975. 12 00001302
  2976. 10 00001365
  2977. 5 1
  2978. 6 14
  2979. 3 0
  2980. 8 14
  2981. 10 00001224
  2982. 0 1295 "{10}" "{14}"
  2983. 13
  2984. 8 18
  2985. 6 14
  2986. 6 18
  2987. 23 7
  2988. 10 00001267
  2989. 5 1
  2990. 8 14
  2991. 0 1293 "{10}"
  2992. 13
  2993. 5 0
  2994. 18 0
  2995. 11 00001930
  2996. 5 1
  2997. 22 7
  2998. 0 1292 "{10}" [X]
  2999. 13
  3000. 8 18
  3001. 0 20 "{18}" "{17}" "{12}"
  3002. 13
  3003. 8 19
  3004. 6 19
  3005. 6 3
  3006. 18 1
  3007. 11 00001539
  3008. 10 00001917
  3009. 0 20 "{18}" "{15}" "{12}"
  3010. 13
  3011. 8 20
  3012. 6 20
  3013. 6 4
  3014. 18 1
  3015. 11 00001619
  3016. 10 00001917
  3017. 0 20 "{18}" "{16}" "{12}"
  3018. 13
  3019. 8 21
  3020. 0 806 "{21}" 1
  3021. 13
  3022. 5 0
  3023. 18 0
  3024. 11 00001726
  3025. 0 807 "{21}" 1
  3026. 13
  3027. 8 21
  3028. 0 1041 &0 "{14}" "{21}"
  3029. 5 2
  3030. 22 7
  3031. 0 1292 "{10}" [X]
  3032. 13
  3033. 8 18
  3034. 0 1041 &2 "{14}" "{18}"
  3035. 5 4
  3036. 22 7
  3037. 0 1292 "{10}" [X]
  3038. 13
  3039. 8 18
  3040. 0 1041 &1 "{14}" "{18}"
  3041. 0 789 "{18}"
  3042. 6 14
  3043. 5 1
  3044. 3 0
  3045. 8 14
  3046. 10 00001376
  3047. 0 1291 "{10}"
  3048. 0 789 ""
  3049. 6 14
  3050. 5 1
  3051. 3 1
  3052. 15
  3053. 9
  3054. 0 1291 "{10}"
  3055. 0 789 ""
  3056. 5 0
  3057. 15
  3058. 9
  3059. 6 5
  3060. 15
  3061. 9
  3062. 14 helpme
  3063. 0 284 "user,FindWindow,HCC" "AmiProWndA" 0
  3064. 13
  3065. 0 798
  3066. 13
  3067. 0 16 [X] "HelpPack.hlp"
  3068. 13
  3069. 0 284 "user,WinHelp,HHCHJ" [X] [X] 1 140
  3070. 6 0
  3071. 15
  3072. 9
  3073. 14 datenum2datestr
  3074. 0 32 1
  3075. 5 01
  3076. 6 0
  3077. 18 0
  3078. 11 00000091
  3079. 7 "January"
  3080. 15
  3081. 9
  3082. 10 00000761
  3083. 5 02
  3084. 6 0
  3085. 18 0
  3086. 11 00000155
  3087. 7 "February"
  3088. 15
  3089. 9
  3090. 10 00000761
  3091. 5 03
  3092. 6 0
  3093. 18 0
  3094. 11 00000216
  3095. 7 "March"
  3096. 15
  3097. 9
  3098. 10 00000761
  3099. 5 04
  3100. 6 0
  3101. 18 0
  3102. 11 00000277
  3103. 7 "April"
  3104. 15
  3105. 9
  3106. 10 00000761
  3107. 5 05
  3108. 6 0
  3109. 18 0
  3110. 11 00000336
  3111. 7 "May"
  3112. 15
  3113. 9
  3114. 10 00000761
  3115. 5 06
  3116. 6 0
  3117. 18 0
  3118. 11 00000396
  3119. 7 "June"
  3120. 15
  3121. 9
  3122. 10 00000761
  3123. 5 07
  3124. 6 0
  3125. 18 0
  3126. 11 00000456
  3127. 7 "July"
  3128. 15
  3129. 9
  3130. 10 00000761
  3131. 5 08
  3132. 6 0
  3133. 18 0
  3134. 11 00000518
  3135. 7 "August"
  3136. 15
  3137. 9
  3138. 10 00000761
  3139. 5 09
  3140. 6 0
  3141. 18 0
  3142. 11 00000583
  3143. 7 "September"
  3144. 15
  3145. 9
  3146. 10 00000761
  3147. 5 10
  3148. 6 0
  3149. 18 0
  3150. 11 00000646
  3151. 7 "October"
  3152. 15
  3153. 9
  3154. 10 00000761
  3155. 5 11
  3156. 6 0
  3157. 18 0
  3158. 11 00000710
  3159. 7 "November"
  3160. 15
  3161. 9
  3162. 10 00000761
  3163. 5 12
  3164. 6 0
  3165. 18 0
  3166. 11 00000761
  3167. 7 "December"
  3168. 15
  3169. 9
  3170. 6 1
  3171. 15
  3172. 9
  3173. 14 datestr2datenum
  3174. 0 32 1
  3175. 7 "January"
  3176. 6 0
  3177. 18 0
  3178. 11 00000091
  3179. 5 01
  3180. 15
  3181. 9
  3182. 10 00000761
  3183. 7 "February"
  3184. 6 0
  3185. 18 0
  3186. 11 00000155
  3187. 5 02
  3188. 15
  3189. 9
  3190. 10 00000761
  3191. 7 "March"
  3192. 6 0
  3193. 18 0
  3194. 11 00000216
  3195. 5 03
  3196. 15
  3197. 9
  3198. 10 00000761
  3199. 7 "April"
  3200. 6 0
  3201. 18 0
  3202. 11 00000277
  3203. 5 04
  3204. 15
  3205. 9
  3206. 10 00000761
  3207. 7 "May"
  3208. 6 0
  3209. 18 0
  3210. 11 00000336
  3211. 5 05
  3212. 15
  3213. 9
  3214. 10 00000761
  3215. 7 "June"
  3216. 6 0
  3217. 18 0
  3218. 11 00000396
  3219. 5 06
  3220. 15
  3221. 9
  3222. 10 00000761
  3223. 7 "July"
  3224. 6 0
  3225. 18 0
  3226. 11 00000456
  3227. 5 07
  3228. 15
  3229. 9
  3230. 10 00000761
  3231. 7 "August"
  3232. 6 0
  3233. 18 0
  3234. 11 00000518
  3235. 5 08
  3236. 15
  3237. 9
  3238. 10 00000761
  3239. 7 "September"
  3240. 6 0
  3241. 18 0
  3242. 11 00000583
  3243. 5 09
  3244. 15
  3245. 9
  3246. 10 00000761
  3247. 7 "October"
  3248. 6 0
  3249. 18 0
  3250. 11 00000646
  3251. 5 10
  3252. 15
  3253. 9
  3254. 10 00000761
  3255. 7 "November"
  3256. 6 0
  3257. 18 0
  3258. 11 00000710
  3259. 5 11
  3260. 15
  3261. 9
  3262. 10 00000761
  3263. 7 "December"
  3264. 6 0
  3265. 18 0
  3266. 11 00000761
  3267. 5 12
  3268. 15
  3269. 9
  3270. 6 1
  3271. 15
  3272. 9
  3273. 14 AutoCal
  3274. 0 32 1
  3275. 0 1317
  3276. 13
  3277. 8 14
  3278. 6 14
  3279. 5 1
  3280. 18 0
  3281. 11 00000126
  3282. 0 3 "Unable to run under NewWave." "Ami Pro"
  3283. 5 0
  3284. 15
  3285. 9
  3286. 2 210 1
  3287. 2 201 1
  3288. 0 802
  3289. 13
  3290. 8 15
  3291. 0 772
  3292. 13
  3293. 0 770 [X] "c"
  3294. 13
  3295. 0 20 [X] 2. " "
  3296. 13
  3297. 0 31 9500 [X]
  3298. 0 772
  3299. 13
  3300. 0 770 [X] "c"
  3301. 13
  3302. 0 20 [X] 3. " "
  3303. 13
  3304. 0 31 9501 [X]
  3305. 0 31 9500 "January"
  3306. 0 31 9500 "February"
  3307. 0 31 9500 "March"
  3308. 0 31 9500 "April"
  3309. 0 31 9500 "May"
  3310. 0 31 9500 "June"
  3311. 0 31 9500 "July"
  3312. 0 31 9500 "August"
  3313. 0 31 9500 "September"
  3314. 0 31 9500 "October"
  3315. 0 31 9500 "November"
  3316. 0 31 9500 "December"
  3317. 0 31 9501 "1980"
  3318. 0 31 9501 "1981"
  3319. 0 31 9501 "1982"
  3320. 0 31 9501 "1983"
  3321. 0 31 9501 "1984"
  3322. 0 31 9501 "1985"
  3323. 0 31 9501 "1986"
  3324. 0 31 9501 "1987"
  3325. 0 31 9501 "1988"
  3326. 0 31 9501 "1989"
  3327. 0 31 9501 "1990"
  3328. 0 31 9501 "1991"
  3329. 0 31 9501 "1992"
  3330. 0 31 9501 "1993"
  3331. 0 31 9501 "1994"
  3332. 0 31 9501 "1995"
  3333. 0 31 9501 "1996"
  3334. 0 31 9501 "1997"
  3335. 0 31 9501 "1998"
  3336. 0 31 9501 "1999"
  3337. 0 286 "OrgCal" "DoAnniversary" "amipro2.ini"
  3338. 13
  3339. 0 31 20 [X]
  3340. 0 41 0 "{15}!initdlg"
  3341. 0 47 112 "{15}!helpme"
  3342. 0 26 "." "Heymon"
  3343. 13
  3344. 8 7
  3345. 16 deletefont
  3346. 6 7
  3347. 5 0
  3348. 18 0
  3349. 11 00001089
  3350. 5 0
  3351. 15
  3352. 9
  3353. 0 284 "user,FindWindow,HCC" "TZ_PORG" 0
  3354. 13
  3355. 5 1
  3356. 18 5
  3357. 11 00001299
  3358. 0 284 "user,GetActiveWindow,H"
  3359. 13
  3360. 0 284 "user,PostMessage,JHHHJ" [X] 273 1 0
  3361. 0 3 "Lotus Organizer is not running." "Ami Pro"
  3362. 5 0
  3363. 15
  3364. 9
  3365. 0 27 9500
  3366. 13
  3367. 8 3
  3368. 0 27 9501
  3369. 13
  3370. 8 4
  3371. 0 27 20
  3372. 13
  3373. 0 287 "OrgCal" "DoAnniversary" [X] "amipro2.ini"
  3374. 6 4
  3375. 5 1980
  3376. 18 5
  3377. 6 4
  3378. 5 1999
  3379. 18 3
  3380. 1 2
  3381. 11 00001552
  3382. 0 3 "Year must be in the range 1980 to 1999."
  3383. 0 31 9500 "{3}"
  3384. 0 31 9501 "{4}"
  3385. 10 00000161
  3386. 0 14 "{4}"
  3387. 13
  3388. 8 10
  3389. 6 10
  3390. 5 4
  3391. 18 1
  3392. 11 00001801
  3393. 0 3 "Year must be in the format, YYYY (Ex. '1991')"
  3394. 0 31 9500 "{3}"
  3395. 0 31 9501 "{4}"
  3396. 10 00000161
  3397. 0 3 "Year must be in a range from 1980 to 1999."
  3398. 0 31 9500 "{3}"
  3399. 0 31 9501 "{4}"
  3400. 10 00000161
  3401. 0 17 "{3}"
  3402. 13
  3403. 8 5
  3404. 6 5
  3405. 7 "january"
  3406. 18 0
  3407. 11 00001970
  3408. 7 "01/01/"
  3409. 8 6
  3410. 5 31
  3411. 8 9
  3412. 16 BuildDate "{3}" "{4}" "{6}"
  3413. 13
  3414. 8 8
  3415. 16 FillCalendar "{8}" "{9}"
  3416. 10 00003718
  3417. 6 5
  3418. 7 "february"
  3419. 18 0
  3420. 11 00002149
  3421. 7 "02/01/"
  3422. 8 6
  3423. 16 CheckLeap "{3}" "{4}" "{6}"
  3424. 13
  3425. 8 9
  3426. 16 BuildDate "{3}" "{4}" "{6}"
  3427. 13
  3428. 8 8
  3429. 16 FillCalendar "{8}" "{9}"
  3430. 10 00003718
  3431. 6 5
  3432. 7 "march"
  3433. 18 0
  3434. 11 00002295
  3435. 7 "03/01/"
  3436. 8 6
  3437. 5 31
  3438. 8 9
  3439. 16 BuildDate "{3}" "{4}" "{6}"
  3440. 13
  3441. 8 8
  3442. 16 FillCalendar "{8}" "{9}"
  3443. 10 00003718
  3444. 6 5
  3445. 7 "april"
  3446. 18 0
  3447. 11 00002441
  3448. 7 "04/01/"
  3449. 8 6
  3450. 5 30
  3451. 8 9
  3452. 16 BuildDate "{3}" "{4}" "{6}"
  3453. 13
  3454. 8 8
  3455. 16 FillCalendar "{8}" "{9}"
  3456. 10 00003718
  3457. 6 5
  3458. 7 "may"
  3459. 18 0
  3460. 11 00002585
  3461. 7 "05/01/"
  3462. 8 6
  3463. 5 31
  3464. 8 9
  3465. 16 BuildDate "{3}" "{4}" "{6}"
  3466. 13
  3467. 8 8
  3468. 16 FillCalendar "{8}" "{9}"
  3469. 10 00003718
  3470. 6 5
  3471. 7 "june"
  3472. 18 0
  3473. 11 00002730
  3474. 7 "06/01/"
  3475. 8 6
  3476. 5 30
  3477. 8 9
  3478. 16 BuildDate "{3}" "{4}" "{6}"
  3479. 13
  3480. 8 8
  3481. 16 FillCalendar "{8}" "{9}"
  3482. 10 00003718
  3483. 6 5
  3484. 7 "july"
  3485. 18 0
  3486. 11 00002875
  3487. 7 "07/01/"
  3488. 8 6
  3489. 5 31
  3490. 8 9
  3491. 16 BuildDate "{3}" "{4}" "{6}"
  3492. 13
  3493. 8 8
  3494. 16 FillCalendar "{8}" "{9}"
  3495. 10 00003718
  3496. 6 5
  3497. 7 "august"
  3498. 18 0
  3499. 11 00003022
  3500. 7 "08/01/"
  3501. 8 6
  3502. 5 31
  3503. 8 9
  3504. 16 BuildDate "{3}" "{4}" "{6}"
  3505. 13
  3506. 8 8
  3507. 16 FillCalendar "{8}" "{9}"
  3508. 10 00003718
  3509. 6 5
  3510. 7 "september"
  3511. 18 0
  3512. 11 00003172
  3513. 7 "09/01/"
  3514. 8 6
  3515. 5 30
  3516. 8 9
  3517. 16 BuildDate "{3}" "{4}" "{6}"
  3518. 13
  3519. 8 8
  3520. 16 FillCalendar "{8}" "{9}"
  3521. 10 00003718
  3522. 6 5
  3523. 7 "october"
  3524. 18 0
  3525. 11 00003320
  3526. 7 "10/01/"
  3527. 8 6
  3528. 5 31
  3529. 8 9
  3530. 16 BuildDate "{3}" "{4}" "{6}"
  3531. 13
  3532. 8 8
  3533. 16 FillCalendar "{8}" "{9}"
  3534. 10 00003718
  3535. 6 5
  3536. 7 "november"
  3537. 18 0
  3538. 11 00003469
  3539. 7 "11/01/"
  3540. 8 6
  3541. 5 30
  3542. 8 9
  3543. 16 BuildDate "{3}" "{4}" "{6}"
  3544. 13
  3545. 8 8
  3546. 16 FillCalendar "{8}" "{9}"
  3547. 10 00003718
  3548. 6 5
  3549. 7 "december"
  3550. 18 0
  3551. 11 00003618
  3552. 7 "12/01/"
  3553. 8 6
  3554. 5 31
  3555. 8 9
  3556. 16 BuildDate "{3}" "{4}" "{6}"
  3557. 13
  3558. 8 8
  3559. 16 FillCalendar "{8}" "{9}"
  3560. 10 00003718
  3561. 0 3 "This is not a valid month.  Please try again."
  3562. 0 31 9500 "{3}"
  3563. 0 31 9501 "{4}"
  3564. 10 00000161
  3565. 6 4
  3566. 28 0
  3567. 6 3
  3568. 28 1
  3569. 5 1
  3570. 15
  3571. 9
  3572. 6 2
  3573. 15
  3574. 9
  3575. 14 BuildDate
  3576. 0 32 1
  3577. 0 15 "{1}" 3 2
  3578. 13
  3579. 8 9
  3580. 0 16 "{2}" "{9}"
  3581. 13
  3582. 8 4
  3583. 7 "01/01/90"
  3584. 8 8
  3585. 0 769 "{4}" "{8}"
  3586. 13
  3587. 8 6
  3588. 6 6
  3589. 5 86400
  3590. 4 0
  3591. 5 631224000
  3592. 3 0
  3593. 8 5
  3594. 0 770 "{5}" "f"
  3595. 13
  3596. 8 7
  3597. 0 20 "{7}" 1 " "
  3598. 13
  3599. 8 3
  3600. 0 6 "[16420]{1}[9]{0}[9]{1}"
  3601. 6 3
  3602. 15
  3603. 9
  3604. 14 FillCalendar
  3605. 0 32 1
  3606. 0 6 "[16420][40][40][39]"
  3607. 5 1
  3608. 8 3
  3609. 6 0
  3610. 7 "Sunday"
  3611. 18 0
  3612. 11 00000248
  3613. 5 1
  3614. 8 8
  3615. 5 6
  3616. 6 8
  3617. 18 2
  3618. 12 00000183
  3619. 10 00000235
  3620. 5 1
  3621. 6 8
  3622. 3 0
  3623. 8 8
  3624. 10 00000108
  3625. 0 6 "{3}[39][39]"
  3626. 6 3
  3627. 5 1
  3628. 3 0
  3629. 8 3
  3630. 10 00000150
  3631. 10 00001348
  3632. 6 0
  3633. 7 "Monday"
  3634. 18 0
  3635. 11 00000450
  3636. 0 6 "[39][39]"
  3637. 5 1
  3638. 8 8
  3639. 5 5
  3640. 6 8
  3641. 18 2
  3642. 12 00000385
  3643. 10 00000437
  3644. 5 1
  3645. 6 8
  3646. 3 0
  3647. 8 8
  3648. 10 00000310
  3649. 0 6 "{3}[39][39]"
  3650. 6 3
  3651. 5 1
  3652. 3 0
  3653. 8 3
  3654. 10 00000352
  3655. 10 00001348
  3656. 6 0
  3657. 7 "Tuesday"
  3658. 18 0
  3659. 11 00000661
  3660. 0 6 "[39][39][39][39]"
  3661. 5 1
  3662. 8 9
  3663. 5 4
  3664. 6 9
  3665. 18 2
  3666. 12 00000596
  3667. 10 00000648
  3668. 5 1
  3669. 6 9
  3670. 3 0
  3671. 8 9
  3672. 10 00000521
  3673. 0 6 "{3}[39][39]"
  3674. 6 3
  3675. 5 1
  3676. 3 0
  3677. 8 3
  3678. 10 00000563
  3679. 10 00001348
  3680. 6 0
  3681. 7 "Wednesday"
  3682. 18 0
  3683. 11 00000886
  3684. 0 6 "[39][39][39][39][39][39]"
  3685. 5 1
  3686. 8 10
  3687. 5 3
  3688. 6 10
  3689. 18 2
  3690. 12 00000821
  3691. 10 00000873
  3692. 5 1
  3693. 6 10
  3694. 3 0
  3695. 8 10
  3696. 10 00000743
  3697. 0 6 "{3}[39][39]"
  3698. 6 3
  3699. 5 1
  3700. 3 0
  3701. 8 3
  3702. 10 00000786
  3703. 10 00001348
  3704. 6 0
  3705. 7 "Thursday"
  3706. 18 0
  3707. 11 00001118
  3708. 0 6 "[39][39][39][39][39][39][39][39]"
  3709. 5 1
  3710. 8 11
  3711. 5 2
  3712. 6 11
  3713. 18 2
  3714. 12 00001053
  3715. 10 00001105
  3716. 5 1
  3717. 6 11
  3718. 3 0
  3719. 8 11
  3720. 10 00000975
  3721. 0 6 "{3}[39][39]"
  3722. 6 3
  3723. 5 1
  3724. 3 0
  3725. 8 3
  3726. 10 00001018
  3727. 10 00001348
  3728. 6 0
  3729. 7 "Friday"
  3730. 18 0
  3731. 11 00001254
  3732. 0 6 "[39][39][39][39][39][39][39][39][39][39]"
  3733. 0 6 "{3}[39][39]"
  3734. 6 3
  3735. 5 1
  3736. 3 0
  3737. 8 3
  3738. 10 00001348
  3739. 6 0
  3740. 7 "Saturday"
  3741. 18 0
  3742. 11 00001348
  3743. 0 6 "[39][39][39][39][39][39][39][39][39][39][39][39]"
  3744. 0 6 "{3}[39][40][39]"
  3745. 6 3
  3746. 5 1
  3747. 3 0
  3748. 8 3
  3749. 5 2
  3750. 8 4
  3751. 5 6
  3752. 6 4
  3753. 18 2
  3754. 12 00001476
  3755. 10 00002296
  3756. 5 1
  3757. 6 4
  3758. 3 0
  3759. 8 4
  3760. 10 00001401
  3761. 5 1
  3762. 8 5
  3763. 5 6
  3764. 6 5
  3765. 18 2
  3766. 12 00001561
  3767. 10 00001654
  3768. 5 1
  3769. 6 5
  3770. 3 0
  3771. 8 5
  3772. 10 00001486
  3773. 0 6 "{3}[39][39]"
  3774. 6 3
  3775. 5 1
  3776. 3 0
  3777. 8 3
  3778. 6 3
  3779. 6 1
  3780. 18 3
  3781. 11 00001641
  3782. 6 2
  3783. 15
  3784. 9
  3785. 10 00001528
  3786. 6 4
  3787. 5 7
  3788. 18 0
  3789. 6 3
  3790. 6 1
  3791. 18 5
  3792. 1 1
  3793. 11 00002167
  3794. 0 6 "{3}"
  3795. 6 3
  3796. 5 1
  3797. 3 0
  3798. 8 3
  3799. 0 6 "[39]"
  3800. 5 1
  3801. 8 6
  3802. 5 7
  3803. 6 6
  3804. 18 2
  3805. 12 00001832
  3806. 10 00002154
  3807. 5 1
  3808. 6 6
  3809. 3 0
  3810. 8 6
  3811. 10 00001757
  3812. 10 00002053
  3813. 5 1
  3814. 8 7
  3815. 5 2
  3816. 6 7
  3817. 18 2
  3818. 12 00001930
  3819. 10 00002038
  3820. 5 1
  3821. 6 7
  3822. 3 0
  3823. 8 7
  3824. 10 00001855
  3825. 5 16
  3826. 8 12
  3827. 5 0
  3828. 8 13
  3829. 5 64
  3830. 5 2
  3831. 3 0
  3832. 8 14
  3833. 2 632 1 "{12}" "{13}" "{14}" 1 64
  3834. 0 6 "[16423]"
  3835. 10 00001897
  3836. 0 6 "[16421]"
  3837. 0 6 "{3}"
  3838. 6 3
  3839. 5 1
  3840. 3 0
  3841. 8 3
  3842. 0 6 "[16423]"
  3843. 6 3
  3844. 6 1
  3845. 18 3
  3846. 11 00002141
  3847. 10 00002154
  3848. 10 00001799
  3849. 10 00002263
  3850. 6 3
  3851. 6 1
  3852. 18 0
  3853. 11 00002240
  3854. 0 6 "{3}[16420]"
  3855. 10 00002296
  3856. 10 00002263
  3857. 0 6 "{3}[39][40][39]"
  3858. 6 3
  3859. 5 1
  3860. 3 0
  3861. 8 3
  3862. 10 00001443
  3863. 6 2
  3864. 15
  3865. 9
  3866. 14 CheckLeap
  3867. 0 32 1
  3868. 0 15 "{1}" 3 2
  3869. 13
  3870. 8 9
  3871. 0 16 "{2}" "{9}"
  3872. 13
  3873. 8 4
  3874. 7 "01/01/90"
  3875. 8 8
  3876. 0 769 "{4}" "{8}"
  3877. 13
  3878. 8 6
  3879. 6 6
  3880. 5 86400
  3881. 4 0
  3882. 5 631224000
  3883. 3 0
  3884. 8 5
  3885. 6 5
  3886. 5 2419200
  3887. 3 0
  3888. 8 10
  3889. 0 770 "{10}" "a"
  3890. 13
  3891. 8 11
  3892. 0 20 "{11}" 1 "/"
  3893. 13
  3894. 8 12
  3895. 6 12
  3896. 5 3
  3897. 18 0
  3898. 11 00000301
  3899. 5 28
  3900. 8 3
  3901. 10 00000312
  3902. 5 29
  3903. 8 3
  3904. 6 3
  3905. 15
  3906. 9
  3907. 14 initdlg
  3908. 5 1002
  3909. 8 4
  3910. 5 1008
  3911. 6 4
  3912. 18 2
  3913. 12 00000103
  3914. 10 00000140
  3915. 5 1
  3916. 6 4
  3917. 3 0
  3918. 8 4
  3919. 10 00000025
  3920. 16 setfont "{0}" "{4}"
  3921. 10 00000070
  3922. 6 3
  3923. 15
  3924. 9
  3925. DIALOG Heymon
  3926. -2134376448 14 73 41 192 127 "" "amidialog" "Monthly Organizer Calendar" 
  3927. FONT 8 "Helv" 
  3928. 5 5 134 18 1002 1342177280 "static" "This feature creates a monthly calendar using appointment entries in Lotus Organizer." 0 
  3929. 5 72 27 10 1000 1342177280 "static" "&Month :" 0 
  3930. 5 88 23 10 1001 1342177280 "static" "&Year :" 0 
  3931. 36 71 52 40 9500 1344339979 "combobox" "" 0 
  3932. 36 86 52 40 9501 1344339979 "combobox" "" 0 
  3933. 5 108 101 12 20 1342242819 "button" "&Include Anniversary entries" 0 
  3934. 147 5 40 14 1 1342242817 "button" "OK" 0 
  3935. 147 21 40 14 2 1342242816 "button" "Cancel" 0 
  3936. 5 24 6 10 1003 1342177280 "static" "1." 0 
  3937. 15 24 105 10 1004 1342177280 "static" "Load the Organizer." 0 
  3938. 5 34 6 10 1005 1342177280 "static" "2." 0 
  3939. 15 34 124 16 1006 1342177280 "static" "Open the Organizer file for which you want to create a calendar." 0 
  3940. 5 50 6 10 1007 1342177280 "static" "3." 0 
  3941. 15 51 163 16 1008 1342177280 "static" "Choose this 'Monthly Organizer Calendar' feature and choose a month and a year for the calendar." 0 
  3942. 14 createdlgfont
  3943. 0 802
  3944. 13
  3945. 8 1
  3946. 0 284 "gdi,CreateFont,HHHHHHHHHHHHHHC" 13 0 0 0 400 0 0 0 0 0 0 0 0 "Helv"
  3947. 13
  3948. 8 2
  3949. 6 2
  3950. 5 1
  3951. 18 3
  3952. 11 00000204
  3953. 0 271 "{1}hfont" 1
  3954. 0 264 "{1}hfont" "{2}"
  3955. 6 2
  3956. 15
  3957. 9
  3958. 6 0
  3959. 15
  3960. 9
  3961. 14 deletefont
  3962. 0 802
  3963. 13
  3964. 8 1
  3965. 0 271 "{1}hfont" 1
  3966. 0 265 "{1}hfont"
  3967. 13
  3968. 8 2
  3969. 6 2
  3970. 5 1
  3971. 18 3
  3972. 11 00000160
  3973. 0 284 "gdi,DeleteObject,HH" "{2}"
  3974. 0 266 "{1}hfont"
  3975. 6 0
  3976. 15
  3977. 9
  3978. 14 setfont
  3979. 0 802
  3980. 13
  3981. 8 3
  3982. 0 271 "{3}hfont" 1
  3983. 0 265 "{3}hfont"
  3984. 13
  3985. 8 4
  3986. 6 4
  3987. 5 1
  3988. 18 5
  3989. 11 00000162
  3990. 16 createdlgfont
  3991. 13
  3992. 5 1
  3993. 18 5
  3994. 11 00000162
  3995. 5 0
  3996. 15
  3997. 9
  3998. 0 265 "{3}hfont"
  3999. 13
  4000. 8 4
  4001. 0 44 "{0}" "{1}"
  4002. 13
  4003. 0 284 "user,SendMessage,JHHHJ" [X] 48 "{4}" 0
  4004. 6 2
  4005. 15
  4006. 9
  4007. 14 delfile
  4008. 0 259 "{0}" "r"
  4009. 13
  4010. 8 2
  4011. 6 2
  4012. 5 0
  4013. 18 1
  4014. 11 00000161
  4015. 0 263 "{2}" 0 2
  4016. 0 262 "{2}"
  4017. 13
  4018. 8 3
  4019. 0 260 "{2}"
  4020. 6 3
  4021. 5 0
  4022. 18 1
  4023. 11 00000161
  4024. 0 779 "{0}"
  4025. 6 1
  4026. 15
  4027. 9
  4028. 14 FindAndReplace
  4029. 5 0
  4030. 8 5
  4031. 5 0
  4032. 0 808 "{5}" "{0}" "{1}"
  4033. 13
  4034. 0 805 &4 [X]
  4035. 13
  4036. 18 1
  4037. 11 00000240
  4038. 6 4
  4039. 5 1
  4040. 3 1
  4041. 0 806 "{0}" [X]
  4042. 13
  4043. 8 6
  4044. 0 14 "{0}"
  4045. 13
  4046. 6 4
  4047. 3 1
  4048. 0 807 "{0}" [X]
  4049. 13
  4050. 8 7
  4051. 0 16 "{6}" "{2}" "{7}"
  4052. 13
  4053. 28 0
  4054. 10 00000029
  4055. 6 3
  4056. 15
  4057. 9
  4058. 00043506
  4059.